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PREFACE 


The increasing complexity of the problems to be solved in science, 
engineering, business, etc., has led to the development of electronic 
computers. At the beginning of the sixties, the number of computers 
started to increase at a very high rate. The last census (Autom. Data 
Process. Newsletter 9, 14, 1964) shows that more than 40,000 computers 
are installed or are to be installed very soon on the American continent 
and in Europe. It also indicates that the yearly rate of increase is 17% 
for Europe. 

With passing time, the computers have grown bigger and more 
sophisticated and so has the task of programming these machines. 
Since it is very tedious to use individual machine languages for pro- 
gramming, highly efficient programming languages and appropriate 
processors have been developed. This development has culminated in 
the rigid definition of ALGOL 60* in 1963 and of FORTRAN f in 1964. 
Although many different computer languages have been introduced, 
clearly the two most important ones are ALGOL 60 and FORTRAN. 
These languages are also taught at universities, and at engineering and 
business schools. Extensive libraries of programs written in ALGOL or 
FORTRAN have been founded, and the exchange of computer pro- 
grams is growing rapidly. Unfortunately, the overwhelming majority 
of computers allow only ALGOL or FORTRAN programs to be used, 
1.e. if a useful FORTRAN program should be obtained and it is thus 
desirable to run this on a machine with an ALGOL processor, it is 
necessary to translate it. The aim of the dictionary presented here is not 
only to assist the programmer during this translation but also to make it 
possible to translate from ALGOL 60 into FORTRAN (or vice versa) 
even with a very limited knowledge of computer language itself. To 
perform this task, the dictionary is arranged in the following way. 

Firstly are listed the properties of the different computer types which 
accept ALGOL and/or FORTRAN programs. (These computers do 
represent more than 50% of all existing digital machines.{) Secondly, 

* ALGOL 60 is defined in Num. Math. 4, 420 (1963) and also in Communs Ass. comput. 
Mach. 6, No. 1 (1963). If a reference is made to ALGOL instead of to ALGOL 60, this 
means that it refers to an ALGOL 60 program or statement which includes input and/or 
output statements. 

tf FORTRAN is defined in Communs Ass. comput. Mach. 7, 590 (1964). Throughout 
the dictionary the traditional notations FORTRAN II (instead of Basic FORTRAN) 
and FORTRAN IV, abbreviated FIV (instead of FORTRAN) are used. If reference is 
made to FORTRAN, this means FORTRAN II and FORTRAN IV. 

{ As a rule, the other computers have no computer language at all, or use languages 


which do not deviate much from either ALGOL 60 or FORTRAN. 
Vv 
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the terminology used throughout the dictionary is explained and the 
input/output statements for different computer processors are discussed. 
The majority of the book is occupied by the actual dictionary, which is 
divided into ALGOL 60 > FORTRAN and FORTRAN > ALGOL 60. 
Short examples of program translation are given in Parts 4 and 5; in 
Part 6 are given five computer programs and their translations. Four 
of these programs are complete, including input data and computed 
results. Part 6 deals also with the problem of how to translate a pro- 
gram in the easiest way. 

In Appendices I and IT, the reader will find the definitions of ALGOL 
60 and of FORTRAN, respectively. 

Although it is certainly difficult to present all possible statements, 
combinations of statements, and their translations in a book of finite 
length, still the author hopes that he has selected the most useful ones 
and that this dictionary is of considerable help to everyone who has to 
work with computer languages. 

It is a pleasure for the author to thank the Saskatchewan Branch of 
IBM for their ready assistance and especially for the permission to use 
their Selectric typewriter. The help of D. Hutcheon, D. E. Lobb, and H. 
Theissen in the preparation of the manuscript is gratefully acknow- 
ledged. The author is also indebted to the University of Saskatchewan, 
Saskatoon, and its members for help and hospitality. 


Saskatoon H. BREUER 
March 1966 
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COMPUTERS AND THEIR PROPERTIES 


1.1 LIST OF COMPUTERS CONSIDERED 





Manufacturer 


Burroughs Corp., 
Detroit, Mich., U.S.A. 


Compagnie BULL, 
General Electric, 

94 Avenue Gambetta, 
Paris 20, France 


Control Data Computer Systems, 
8100 34th Ave. S., Minneapolis 20, 
Minn., U.S.A. 


Digital Equipment Corp., Maynard, 
Mass., U.S.A. 


Electro-Mechanical Research, Inc. 
Advanced Scientific Instruments 
Division, 

Minneapolis, Min., U.S.A. 


Elliott Brothers Ltd., Borehamwood, 
Hertfordshire, England 


English Electric-Leo/Computers Ltd., 
Kidsgrove, Staffordshire, England 


Ferranti Electronics, Toronto, 
Canada 


General Electric Company Computer 
Department, P.O. Box 270, 
Phoenix, Arizona, U.S.A. 


Honeywell Electronic Data Processing, 


60 Walnut Street, 
Wellesley Hills 81, Mass., U.S.A. 


International Business Machines 
Company Inc., 

112 East Post Road, White Plains, 
New York, U.S.A. 


International Computers 
and Tabulators Ltd., 
London, S.W.15, England 


Olivetti, Milano, Via Pirelli 32, Italy 


Computer Type 


B 5000, 5500 

CAB 500, GAMMA 30, 30S, M40, 60 
CDC 160G, 1900, 3100, 3200, 3300, 
3400, 3600, 3800, 6400, 6600, 6800, 
8090, 8092 


PDP.-1, 4, 5, 6, 7, 8 


ASI 2100, 6020, 6040, 6050, 6060, 6070, 
6080 


NE 503, 803, 803B 


KDF 9 


FP 6000 


GE 205, 235, 415, 425, 435, 600 


H 21, 22, 200, 400, 800, 1400, 1800 


IBM 360, 704, 709, 1401, 1410, 1620, 
1800, 7040, 7044, 7070, 7090, 7094 


ICT 1902, 1903, 1904, 1905, 1906, 1907, 
1909 


Elea 4001, 6001 
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Manufacturer Computer type 





Scientific Data Systems, SDS 910, 920, 925, 930, 9300 
Santa Monica, Calif., U.S.A. 





Telefunken AG, Konstanz, Germany TR 4, 10 


Zuse KG, Bad Hersfeld, Germany Z 22, 23, 25 


1.2 LIST OF SOME COMPUTER PROPERTIES 











Core 
storage Word Cycle FORTRAN FORTRAN 
capacity length time ALGOL II IV 
Computer [words] [bits] [psec] proc. proc. proc. 
ASI 2100 4K-8K 21 2 No Yes No 
6020 
ASI 6040 4K-32K 24 1.9 No Yes No 
6050 
6060 
ASI 6070 4K-32K 24 1.9 No Yes No 
6080 
B 5000 4K-32K 48 6 Yes No No 
B 5500 32K 48 0.125 Yes Yes Yes 
CAB 500 16K 32 160 Yes Yes No 
CDC 160G 8K-128K 13 1.35 No Yes No 
CDS 1900 4K-32K 16 1.2 No No Yes 
CDC 3100 4K-32K 24 1.75 No Yes Yes 
CDC 3200 8K-~32K 24 1.25 No Yes Yes 
CDC 3300 8K—128K 24 0.8 No Yes Yes 
CDC 3400 16K-32K 48 1.5 Yer No Yes 
CDC 3600 16K-256K 48 1.4 Yes No Yes 
CDC 3800 16K-256K 48 0.8 Yes No Yes 
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as Word Cycle FORTRAN FORTRAN 

capacity length time ALGOL II IV 
Computer [words] [bits] [usec] proc. proc. proc. 
CDC 6400 32K-128K 60 1.0 Yes No Yes 
CDC 6600 64K-128K 60 0.5 Yes No Yes 
CDC 6800 32K-128K 60 0.1 Yes No Yes 
CDC 8090 4K-32K 12 6.4 No Yes No 
CDC 8092 2K-4K 8 4.0 No Yes No 
Elea 4001 Yesq Yes No 
Elea 6001 No Yes No 
FP 6000 4K-32K 24 2 Yes No No 
GAMMA 30 40K 6 4.8 Yes Yes No 

308 
GAMMA M40 32K 24 5 Yes No Yes 
GAMMA 60 32K 24 10 Yes No No 
GE 205 4K-16K 20 36.0 No Yes Yes 
GE 235 4K-16K 20(40) 6.0 No Yes Yes 
GE 415 4K-128K 24 9.2 No Yes No 
GE 425 4K-128K 24 5.1 No Yes No 
GE 435 4K-128K 24 2.7 No Yes No 
GE 600 32K-256K 36 2.0 No Yes Yes 
H 21 2K-—-16K 18 6 No No No 
H 22 2K-16K 18 1.75 No No No 
H 200 2K-32K* 2t No No Yes 
H 400 1K-4K 48 18.5 No Yes No 
H 800 8K 48 6 No Yes No 
H 1400 4K 48 6.5 No Yes No 
K = 1024 * Characters ¢ Per character q A very limited processor. 
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oe Word Cycle FORTRAN FORTRAN 

capacity length time ALGOL II IV 
Computer [words] [bits] [usec] proc. proc. proc. 
H 1800 16K 48 2 No No Yes 
IBM 360-30 2K-16K 32 6 No No Yes 
IBM 360-40 4K-64K 32 5 No No Yes 
IBM 360-50 16K-65Kt{t 32 2 No No Yes 
IBM 360-60 32K-128K?t 32 1 No No Yes 
IBM 360-62 64K-128Kt 32 0.5 No No Yes 

360-70 
IBM 704 4K-32K 36 12 No Yes No 
709 
IBM 1401 1.4K-16K* Var 11.5¢ No Yes No 
IBM 1410 10K-80K* Var 4.5¢ No No Yes 
IBM 1620, 20K-80K* Var. 20f No Yes No 
IBM 16201 20K-80K* Var.  10f No Yes No 
IBM 1800 4K-32K 16 2 No No Yes 
IBM 7040 4K-32K 36 8 No No Yes 
IBM 7044 4K-32K 36 2.5 No No Yes 
IBM 7070 5K-30K 40 6 No Yes No 
IBM 7074 5K-30K 40 4 No Yes No 
IBM 7090 32K 36 2.18 No Yes Yes 
IBM 7094 32K-—64K 36 1.4 No Yes Yes 
ICT 1902 4K-16K 48 6.0 Yes Yes No 
ICT 1903 8K-32K 48 2.0 Yes Yes No 
ICT 1904 8K-32K 48 2.0 Yes Yes No 
ICT 1905 8K-32K 48 2.0 Yes Yes No 
K = 1024 * Characters ft Per character t Up to 64000K possible. 
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ee Word Cycle FORTRAN FORTRAN 

capacity length time ALGOL MII IV 
Computer [words] [bits] [usec] proc. proc. proc. 
ICT 1906 32K-256K 48 1.1 Yes Yes No 
ICT 1907 32K-256K 48 1.1 Yes Yes No 
ICT 1909 16K-32K 48 6.0 Yes Yes No 
KDF 9 8K-32K 48 6 Yes Yes No 
NE 503 8K-—128K 38 3.5 Yes No No 
NE 803 4K-8K 38 6 Yes No No 

803B 
PDP-1 4K-32K 18 5 Yes Yes No 
PDP-4 4K-32K 18 8 No Yes No 
PDP-5 4K-32K 12 6 No Yes No 
5.2 . 
PDP-6 8K-256K 36 or No Yes Yes 
0.5 
PDP-7 4K-32K 18 1.75 No Yes No 
PDP-8 4K-32K 12 1.6 No Yes No 
SDS 910 2K-16K 24 8 No§ Yes No 
SDS 920 4K-16K 24 8 No§ Yes No 
SDS 925 4K-16K 24 1.75 No§ Yes No 
SDS 930 4K-32K 24 2 No§ Yes No 
SDS 9300 4K-32K 24 1.75 No§ Yes Yes 
TR 4 12K-28K 48 6 Yes No Yes 
TR 10 10K-—80K 6 8 Yes No No 
Z 22 Yes No No 
Z 23 4K-8K 38 18 Yes No No 
Z 25 5K-20K 18 Yes No No 
K=1024 § May be available in summer 1966. 
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Part 2 


Definition of Terms Used in this 
Dictionary 


DEFINITION OF TERMS 


2.1 LIST OF ABBREVIATIONS 


ot Maximum number of characters which can be used to identify a 
variable identifier or a subprogram identifier. 

B Maximum value for a subscript. 

y Number of continuation cards permitted. 

5 Maximum number of significant digits for an integer number (or 
range of integer numbers). 

€ Maximum number of significant digits for a real number. 

C Maximum number for a label (statement number). 

n Range of permissible numbers in exponents of real numbers. 

w The width of field in a format statement. (This includes the 
numbers, the signs, the decimal point, and the blank spaces to 
provide spacing between numbers.) 

d Number of decimal positions which appear to the right of the 
decimal point. 

b Number of blank fields (spaces) appearing before a value. 

é,c Positive integer numbers, used in connection with input/output 
statements. 

2.2 LIST OF DEFINITIONS 

A, 21, A2,...,a% Arbitrary identifiers for (subscripted or 
non-subscripted) variables and/or con- 
stants and/or values. They must 
consist of at least one but not more 
than « characters, the first must be an 
alphabetic character. Additional re- 
striction in FORTRAN II: the last 
character of an identifier must not be 
the letter F. 

Na, Na, Nae,..., Naz The preceding N emphasizes that the 
variable or constant must be of integer 
type. 

Aa, Aa, Ade,..., Aa, The preceding A emphasizes that the 
variable or constant must be of real 
type. 

C,C1,Ce,...,Ck Arbitrary constants. 

Ne, No, Neo, ..., Nex The preceding N emphasizes that the 
constant must be of integer type. 

Ac, Aci, Ace,..., Ack The preceding A emphasizes that the 


constant must be of real type. 
Il 
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UV, U1, Ve, ..., Uk 


Nv, Nv, Nve, ..., Nv 
Av, Avy, Ave,..., Ave 


my, Me, Mg, Ma 


nN, N41, N2,..., Mk 


token, tokenl, token2 


Ntoken, Ntoken1, Ntoken2 


Atoken, Atoken1, Atoken2 


term, term, term2 
Nterm, Nterm1, Nterm2 


Aterm, Aterm1, Aterm2 
Lterm 


text, text1, text2 


matrix, matrixl, matrix2 


Arbitrary variable identifiers. 

The preceding N emphasizes that the 
variable must be of integer type. 

The preceding A emphasizes that the 
variable must be of real type. 
Nonsubscripted integer variables or 
constants (if not otherwise indicated 
they are positive). 

Statement labels (numbers). Any num- 
ber from 1 through ¢ can be used. In 
FORTRAN the statement number 
must appear in column (1) 2 through 5, 
this is indicated by using a vertical 
line after the number. (Examples: 2]| 
or 9945| or 5| or 99929].) 

Arbitrary identifiers for a subprogram. 
The identifier must begin with an 
alphabetic character. It must consist 
of at least one, but not more than « 
characters. In FORTRAN IT the first 
character of the identifier determines 
the type of the subprogram. In 
FORTRAN IV the first character can 
determine the type of the subprogram. 
The preceding N indicates that the 
result of the subprogram is of integer 
type. 

The preceding A indicates that the 
result of the subprogram is of real type. 
Arbitrary expressions. 

The preceding N indicates that the 
expression is of integer type. 

The preceding A indicates that the 
expression is of real type. 

The preceding ZL indicates that the 
expression is of logical (Boolean) type. 
Any sequence of characters to explain 
a program or a part of it or to give a 
comment. This could be one charac- 
ter. 

Arbitrary identifiers for an array. 
Obeys the same rules as a variable 
identifier. 
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Nmatriz, Nmatrix1, Nmatrix2 The preceding N emphasizes that the 


array identifier must be of integer type. 


Amatirix, Amatrix1, Amatrix2 The preceding A emphasizes that the 


array identifier must be of real type. 


jump Arbitrary identifier for a switch. It 
obeys the same rules as a variable 
identifier. 

£3 dehetest Symbolizes one of the FORTRAN 

format settings Hw.d, Fw.d, Iw, cH or 
Ac (or their translation). 

Symbolizes arbitrary parts of a 
program. 

... term... The periods indicate that term is a 

or part of a statement. The periods do 

Pe 2 a / ere not indicate whether term actually is 

placed at the beginning, or at the end, 
or in the middle of the statement. 

[ This indicates input and/or output 

values in examples. 
2.3 LIST OF NOTES 

N1 The type (real or integer) of the result is determined by the 
type of the argument. The type of the argument must be as 
indicated. If this is not the case a preceding statement must be 
used to change the type in the proper way. 

N2 = The variables and/or constants must all be of the same type, the 
type is indicated, i.e. real or integer. If this is not the case a 
preceding statement must be used to change the type in the 
proper way. 

N3__sInstead of NV, the variable identifiers may begin also with J, J, 
K, L, or M. 

N4 Instead of A, the variable identifiers may also begin with another 
alphabetic character, except J, J, K, L, M, or N. 

N5 ~The last 1 (in 1.0000001) should appear (« — 1) places to the 
right of the decimal point. 

N6__iIn this case m1, me, and mg include the (negative or positive) 
sign. 

N7 end or : of a for statement in an ALGOL 60 program is always 


translated with n| CONTINUE. 
13 


N8 
N9Q 


N10 


N1il 
N12 
N13 
N14 


N15 


N16 


N17 


N18 


N19 
N20 
N21 


DICTIONARY FOR COMPUTER LANGUAGES 


For details on the format statement see under FORMAT. 
The following combinations cannot be used as identifiers for 
variables, switches, labels, or procedures: 


abs, arctan, array, cos, begin, comment, cos, do, else, end, 
entire, equal, exit, exp, for, go to, greater, if, integer, label, less, 
In, not equal, not greater, not less, power, print, procedure, read, 
real, sign, sin, sqrt, step, then, until, value. 


The following combinations cannot be used as identifiers for 
variables, functions or subroutines: 

ABS, ACCEPT, ASSIGN, ATAN, CALL, COMMON, COS, 
DATA, DO, END, ENDFILE, EXIT, EXP, FETCH, 
FIND, FORMAT, GO TO, IF, INTEGER, LOG, OUT- 
PUT, PAUSE, PRINT, PUNCH, READ, REAL, 
RETURN, REWIND, SIN, SQRT, STOP, TAPE, TYPE, 
WRITE, WRITEDR, XABS, XEXP, XLOG, XSQRT, and 
identifiers with F as the last letter. (The last rule is not valid 
for arithmetic statement functions.) 

An arbitrary expression can replace a; and/or az. 

These characters can be replaced by term. 

Each of these characters can be negative or positive or zero. 
These variable identifiers must be declared in the head of the 
program under integer if they are of integer type or under real 
if they are of real type. 

If there is no special statement specifying in which form the values 
should appear in the output data, the values appear as decimal 
numbers with e« significant digits times a power of ten. Integers 
appear without decimal point. 

The same as above, only replace FUNCTION Ntoken by IN- 
TEGER FUNCTION Ntoken. 

When an if statement follows directly an if... then statement 
the following if statement must be placed between begin and 
end. 

When an if statement follows directly a for statement, then the 
if statement must be placed between begin and end. 

This is a dummy statement if jwmp [...] is not defined. 

This is a dummy statement if the label is not defined. 

The COMMON statement must contain all the variable identi- 
fiers and/or array identifiers (1%, ..., vs) which are not mentioned 
as arguments of the subprogram and which are not defined inside 
the subprogram. A COMMON statement with arguments of the 
same number, order, and type must also appear in the main 
program preceding the first appearance of those arguments. An 
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N23 


N24 


N25 


N26 


N27 


N28 


N29 


N30 


N31 


N32 


N33 


N34 
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array identifier appearing in a COMMON statement must be 
preceded by the appropriate DIMENSION statement. 

If during the translation more than one COMMON statement 
becomes necessary it is recommended that all these different 
statements be placed in one COMMON statement. 

Instead of a comma the arguments can be separated by )tezt -( 
This does not affect the translation. 

The part of the subprogram ::: must be treated like a separate 
program, i.e. it has to begin ‘with a declaration (type, array, 
switch, procedure) for all local identifiers. Local identifiers are 
all identifiers which do not appear in the COMMON statement 
or as arguments of the subprogram. 

Those arguments of the subprogram which are variable identifiers 
should follow the indicator value. (This is not always necessary, 
but it simplifies the task of the processor.) 

The real and/or integer arguments of the subprogram which are 
variable identifiers should follow the indicators real and/or 
integer respectively. (This is not always necessary, but it 
simplifies the task of the processor.) 

If the array identifier appears also as an argument of a sub- 
program, then see, for —— 

SUBROUTINE token (. . , Nmatrix, sa) 

There may, or may not be a COM MON statement. 

The same as above, only replace FUNCTION Atoken by REAL 
FUNCTION Atoken. 

The part of the subprogram ::: must be treated like a separate 
program. 

This type declaration overrides only the normal mode indication, 
it does not necessarily include all (integer and/or real) variable 
identifiers. 

In contrast to FORTRAN IV, the type declarations in an 
ALGOL 60 program must contain all (integer and/or real) 
variable identifiers. 

The main program must contain the declaration INTEGER 
token. This declaration must precede the first call for the 
INTEGER FUNCTION. 

The main program must contain the declaration REAL token. 
This declaration must precede the first call for the REAL 
FUNCTION. 

Jump appeared in a preceding switch jump: = 21, v2, ... , UK 
declaration. 

The statement on the right side of the logical if statement cannot 
be a do statement or a logical if statement. 
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The main program must contain the declaration LOGICAL 
token. This declaration must precede the first call for the 
LOGICAL FUNCTION. 

The real and/or integer and/or logical arguments of the sub- 
program which are variable identifiers should follow the indi- 
cators real and/or integer and/or Boolean respectively. (This is 
not always necessary, but it simplifies the task of the processor.) 
If ...and/or : : : contain more than one statement, then translate 


according to: 


IF(....)GO TO mn 
IF(....) GO TO ne 
GOTO n 
| Sak 
GO TO n 
nel a 


n| CONTINUE 


If: 2 and/or ::: contain more than one statement, then trans- 
late according to: 


1F(....)GOTOn 


GO TO ne 
1 Der 

GO TO n 
No : 


n| CONTINUE 


If... contains more than one statement, then translate accord- 
ing to: 

IF(....)GO TO n 

GO TO n 
n| 


n| CONTINUE 


The range of a for .. . do statement goes up to the next semi- 
colon or includes the constants of the immediately following 
begin ... end brackets. 

The function is calculated with a precision equivalent to twice 
as many significant digits as are obtained in ordinary operation. 
Some FORTRAN II processors such as IBM 1620; require that 
the letter £ be the last letter of the identifier of a standard 
function. 
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The argument of ABS(...) must be of real type. If the argu- 
ment is of integer type, then replace the right-hand side with: 


IABS(...) +1 


Exception: IBM 1620r;: 
In this case replace the right-hand side with: 


ABSF(...) +1 
Add the contents of the bracket and use this value. 


2.4 LIST OF RESTRICTIONS 


The argument must be of the type real. The result is of the 
same type. 

The variable identifier cannot begin with J, J, K, LZ, M, or N. 
The length of the statement or text is limited to y continuation 
cards. 

A FORMAT statement cannot be the first statement in a DO 
loop. 

The identifier of a FORTRAN II subprogram cannot end with 
the character fF’. 

Not all processors for IBM 1620; and IBM 1401 allow SUB- 
ROUTINE and FUNCTION statements. 

In FORTRAN it is not possible to have a variable identifier (or 
term) act as a bound in an array declaration. If this occurs in an 
ALGOL program, then one should replace the variable identifier 
(or term) by an estimated integer number. 
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2.5 LIST OF COMPUTER AND PROCESSOR PROPERTIES 
WHICH ARE IMPORTANT WITH RESPECT TO THE 


Computer 
2100 
ASI 6020 
6040 


B 5000 


B 5500 


CAB 500 


8090 
CDC 160G 
8092 


3100 
CDC 3200 
3300 


3400 
CDC 3600 
3800 
6400 
CDC 6600 
6800 
CDC 1900 


Elea 4001 
6001 


FP 6000 


GAMMA 30 
308 


GAMMA M40 6 


TRANSLATION OF PROGRAMS 


a 6 

6 32767 
10 

30 1023 
10,5* 32767 
6 

8 

8 

8 131071 
5 99999 
6 


32767 


* ALGOL proc. 


+ Tape. 


Y 


0 


++ 


ft 


9 


8 
-— 8388608 
+- 8388608 


Il 


16 


14 


17 


€ 


16 


10 


10 


14 


12 


99999 


85 


99999 


32767 


99999 


99999 


9999 


9999. 


4-32 

— 308 
+ 308 
— 308 
+ 308 


— 308 
+-308 


— 49 
4-50 


— 99 
+99 


—T7 
+77 


{ A statement may have up to 598 operators, deliminators, and identifiers. 


§ A statement may have up to 660 operators, deliminators, and identifiers. 
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Computer a B Y 8 e C n 
GAMMA 60 8 10 10 — 40 
+ 40 
H 21 
H 22 
H 200 6 28672 9 2-20 2-20 99999 —99 
+99 
H 400 a) 3072 3 13 10 99999 — 64 
+63 
H 800 6 32767 9 13 12 32767 — 76 
+76 
H 1400 6 6144 6 13 9 99999 — 50 
1.49 
H 1800 6 28672 19 I3 18 32767 — 76 
+76 
IBM 360 6 9999 9 17 15 99999 —78 
+75 
IBM 704 6 32767 9 —131071 8 32768 — 38 
709 + 131071 + 38 
IBM 1401 6 9999 9 2-20 2-20 99999 — 50 
1410 2-40 2-40 1.49 
IBM 1620; 5 9999 0) 4 8 9999 — 50 
+49 
IBM 16201 6 9999 4 4-20 2-28 9g9ac" 90 
-- 100 
IBM 1800 5 9999 5 — 32767 10 Q6 —99 
+ 32767 +99 
IBM 7040 6 9999 9 ll 9 99999 — 38 
71044 + 38 
IBM 7070 6 9999 9 10 8 99999 — 50 
1074 +49 
IBM 7090 6 32767 19 —131071 8 32768 — 38 
7094 + 131071 + 38 
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Computer a B Y 8 E C 7 
KDF 9 8 Tt 13 13 1000 —128 
+128 
503 
NE 803 6 Tt 1] 8 — 76 
803B + 76 
PDP.-1 6 256144 fT 10 10 256144 —99 
+99 
PDP.-4 6 256144 =f — 131071 10 99999 —99 
+ 131071 +99 
PDP-5 4 4096 t — 2047 7 2047 — 2047 
+ 2047 + 2047 
PDP-6 6 256144 9 10 16 99999 — 131071 
+ 131071 
PDP-7 6 256144 =f — 131071 10 99999 —99 
+131071 +99 
PDP-8 4 4096 T — 2047 7 2047 — 2047 
4- 2047 + 2047 
910 
920 
SDS 925 8 32767 9 — 8388607 12 99999 —77 
930 + 8388607 +77 
9300 
TR 4 6 30000 13 20 99999 — 150 
10 +150 
22 
Z 23 6 255 T 11 9 — 38 
25 +39 
ft Tape. 
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2.6 THE DIFFERENT COMPUTER PROCESSORS AND THEIR 
MAIN RESTRICTIONS OR ADVANTAGES WITH RESPECT 
TO ALGOL 60 AND FORTRAN 
2.6.1. ALCOR-Group 

1. The separator while is not used. 

2. The declarator own is not used. 

3. A variable identifier may have an arbitrary number of characters, 
but only the first 6 are used to identify it. 

4. The arithmetic operator —~ is not used. 

5. If the exponent in an exponential operation is a positive integer, 
then the result is of the same type as the base. 

6. Only simple Boolean expressions are used. 

7. The controlled variable in a for statement cannot be a subscripted 
variable. 

8. All formal parameters of a subprogram must be specified. 

9. go to an undefined switch is not allowed. 


2.6.2 Burroughs Corp 
The ALGOL 60 language is fully implemented. 


2.6.3 Compagnie BULL 
ALGOL processor: 
1. The declarator own is not used. 
2. The specifier string is not used. 
3. All formal parameters of a subprogram must be specified. 
4, Labels must not be unsigned integers. 


2.6.4 Control Data Computer Systems 
FORTRAN II processor: 


Besides the normal features, this processor includes magnetic tape 
control statements. 


FORTRAN IV processor: 


1. More than one statement may be written on one record by using 
the statement separator $ . 
2. The last character of a standard library function is an F. 


2.6.5 Digital Equipment Corporation 
FORTRAN II processor: 


The FORTRAN II processor for the machine types PDP-5 and 
PDP-7 includes all FORTRAN IV features with the exception of the 
logical expressions. 
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2.6.6 Elliott Brothers 


1. A variable identifier may have an arbitrary number of characters, 
but only the first 6 are used to identify it. 

2. The result of exponentiation is always real. 

3. Labels must not be unsigned integers. 

4. A go to statement inside a procedure body cannot lead to a 
statement outside this body. 

5. Any label used to label a statement must be declared at the head 
of the innermost block and be included in the switch list of a switch 
declaration. 

6. All formal parameters of a subprogram must be specified. 

7. A switch identifier or a subprogram identifier may not appear as 
an actual parameter of a subprogram. 

8. The logical operator a; > ag must be replaced by ag or not ai. 


2.6.7 English Electric-Leo 


1. All formal parameters of a subprogram must be specified. 

2. Labels must not be unsigned integers. 

3. go to an undefined switch produces an error indication. 

4. A real procedure or integer procedure must contain an assignment 
to the real procedure or integer procedure identifier. 

5. The declaration own array is not allowed. 


2.6.8 Honeywell 
FORTRAN II processor (called Automath 400): 


In addition to the normal features, this processor includes: 

1. FORTRAN IV statements in connection with the use of magnetic 
tape as input and output devices. 

2. An ERASE statement clears to zero the locations corresponding 
to the identifiers specified in a list. 


FORTRAN IV processor (called Automath 800): 


In addition to the normal features, this processor includes: 


1. It is possible to interspace H800 instructions, written in the 
ARGUS language, into the FORTRAN IV program. 

2. A BUFFER statement makes it possible to overlap reading and/or 
writing and/or computation. 

3. An ERASE statement clears to zero the locations corresponding 
to the identifiers specified in a list. 
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2.6.9 Olivetti 
ALGOL processor (called PALGO): 


1. Expressions used as subscripts can be only linear combinations of 
integer variable identifiers and integers. 

2. The main program and the subprograms consist only of one block. 

3. Compound statements are accepted only if controlled by for 
statements. 

4, Compound conditional statements are not allowed. 

5. Non-local variables and parameters called by identifiers cannot 
appear on the left side of an assignment statement. 


FORTRAN II processor: 


Besides the normal features this processor includes magnetic tape 
control statements. 


2.6.10 Scientific Data Systems 
ALGOL processor: No information available (At present). 
FORTRAN IT processor: 
In addition to the normal features, this processor includes: 


1. Expressions of mixed type are allowed. 

2. The index, initial value, limit value, and increment value of a 
DO statement can be of real type. 

3. The increment value of a DO statement can be negative and can be 
changed inside the loop. 

4. FORTRAN IV statements in connection with the use of magnetic 
tape as input and output devices. 

5. Subscripts can be negative or zero. 

6. An array may have more than three dimensions. Upper and 
lower bounds can be introduced, they may be positive, zero, or negative. 


Example: DIMENSION matrix(—10/10,0/5,12,7/45). 


FORTRAN IV processor: 
In addition to the normal features, this processor includes: 


1. Expressions of mixed type are allowed. 

2. The index, initial value, limit value, and increment value of a 
DO statement can be of real type. 

3. The increment value of a DO statement can be negative and can 
be changed inside the loop. 

4. A subscript can be negative, zero, or a general expression. 

5. An array may have more than three dimensions. Upper and lower 
bounds can be introduced, they may be positive, zero, or negative. 
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Example: DIMENSION matrix(—10: 10,0: 5,12,7: 45). 


6. Dynamic arrays: 
Example: ALLOCATE matrix(K: I/J,SQRT(P)). 

7. Subprograms may be compiled with each other and with the main 
program. In this case a COMMON statement is not necessary. 

8. Local statement labels, i.e. these labels are restricted to a given 
program area. Program areas are limited by using the statement END 


LABELS. 
2.6.11 Telefunken 


ALGOL processor: 
The same restrictions as for the ALCOR group. 


2.6.12 Zuse 
The same restrictions as for the ALCOR group. 
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2.7 ALGOL 60 REFERENCE LANGUAGE SYMBOLS AND 
THE HARDWARE REPRESENTATION OF THE DIFFERENT 


COMPUTER TYPES 


B 5000 ALCOR 


Arithmetic operators 


a or oi 

x xX x 

/ / / 

+ DIV n.u. 

+ bi POWER 

Relational operators 

< < LESS 

< < NOT 
GREATER 

— = EQUAL 

> > NOTLESS 

> > GREATER 

" o NOT 
EQUAL 

Logical operators 

= EQV EQUIV 

> IMP IMPL 

Vv OR OR 

A AND AND 

7 NOT NOT 

Separators 

10 10* 10 

= <— = 

Brackets 

( ) ( ) ( ) 

[}] f] 1 

begin BEGIN BEGIN 

end END END 

Alphabetic characters 

a-Z A-Z A-Z 

A-Z 


Numeric characters 


0-9 0-9 





0-9 


NE 


LESS 


LESSEQ 


EQUAL 


GREQ 
GR 


NOTEQ 


EQUIV 


n.u. 
OR 

AND 
NOT 


KDF9 


*BEGIN 


*END 


A-Z 


BULL 


BULL 


CAB 500 GAMMA CDC 


4- 


x 


t+VW i AA ates 


ep) 
& 
= 
rH 


0-9 


bse t+ 


LAN 


DEBUT 
FIN 


A-Z 


0-9 


$ 


() 
a 


‘BEGIN’ 


‘END’ 


A-Z 


0-9 


Part 3 


Essential Input and Output 
Statements for Different 
Computer Processors 


One of the major differences between the two languages FORTRAN 
and ALGOL 60 is that FORTRAN includes input/output statements 
and ALGOL 60 does not. Thus, for every ALGOL processor a decision 
is necessary as to how the computer may communicate with the outside 
world. Some computer manufacturers have incorporated the FORTRAN 
input/output statements into their ALGOL processors, while others 
have developed their own input/output systems (which in most cases 
are easier to handle than the FORTRAN input/output statements). 

In the middle of 1964 the ALGOL committee published a proposal 
for input/output conventions in ALGOL 60* (known as the Knuth 
proposal) which in the near future will very likely be incorporated into 
the existing ALGOL processors. 

The following table shows the different computer manufacturers and 
the input/output system used: 


Advanced Scientific Instruments FORTRAN 

Burroughs Corp. Own system 

Compagnie BULL Own systemt 

Honeywell FORTRAN 

International Business Machines FORTRAN 

English Electric-Leo Own system, very close to Knuth’s 
proposal t 

Elliott Brothers Ltd. Own system 

Digital Equipment Corp. FORTRAN 

Scientific Data Systems FORTRAN 

Telefunken AG ALCOR group, to be changed into 
Knuth’s proposal t 

Zuse ALCOR group 

Olivetti FORTRAN 

Control Data Computer Systems Own systemf 

International Computers and Tabu- Own system, to be changed into 

lators Ltd. Knuth’s proposal. 

General Electric Company FORTRAN 


Since it is impossible to present all the different input/output systems 
in full detail, we restrict ourselves to the following points: 


1. The FORTRAN input/output statements are explained in Section 
5.0. Appropriate examples and the translation (if possible) into input/ 
output statements of the NE (NE 803) are given. 

2. In Section 3.1 essential FORTRAN output statements are trans- 
lated as exactly as possible into the corresponding statements of 
different ALGOL processors (including Knuth’s proposal). 

3.In Section 3.2 essential input/output statements of different 
ALGOL processors (including Knuth’s proposal) are translated as 
exactly as possible into the corresponding FORTRAN statements. 


* Communs Ass. comput. Mach. 7,273(1964) and 7,628(1964). 
+ Of course, the FORTRAN processor uses the FORTRAN input/output system. 
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3.1 FORTRAN OUTPUT STATEMENTS AND THE 
APPROPRIATE OUTPUT STATEMENTS OF ALGOL 
PROCESSORS 


On the following pages some essential FORTRAN output statements 
are translated as closely as possible into the appropriate statements of 
Knuth’s proposal, the KDF9 processor, and the NE processor. 

We restrict ourselves to output statements, because it is very simple 
to read in a value with the standard input of an ALGOL processor. 

For simplification the paper tape punch was chosen as output device 
for all statements mentioned. Where necessary, examples are given 
(in this case the device number of the paper tape punch is 12). 

The following abbreviations are used exclusively in Section 3.1: 


k=e+c y=w—d—2 t--w—d—6 
r=w-— 1 t=w—d—6 


n| FORMAT(Iw) 
PUNCH TAPE na 


Knuth output /(device number, +7D’,a); 


KDF9 W RITE (device number, The number of D’s =r 
FORMAT (‘ + D- -D’),a); 


NE PRINT DIGITS(r),a; 


example: printed result: 


99| FORMAT(I5) 


PUNCH TAPE 99,A [777 
output 1(72,‘+4D’,A); 
WRITE (12,FORMAT(‘+DDDD’),A); — [40077 
PRINT DIGITS(4),A; [77 
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n| FORMAT(Fw.d) 
PUNCH TAPE n,a 


Knuth output J(device number,‘ +yD.dD’,a); 
KDF9 WRITE (device number, The first group of D’s 
FORMAT(‘+D--D.D--D’),a); contains y characters and 
the second d characters. 
NE PRINT ALIGNED(y,d),a; 
example: printed result: 
98} FORMAT(F12.4) | 938.2129] 
PUNCH TAPE 98,A 
output 1(12,‘+6D.4D’,A); | +000938.2129| 
WRITE (12,FORMAT | +000938.2129| 
((+DDDDDD.DDDD’),A); 
PRINT ALIGNED(6,4),A; | 938.2129] 


Knuth 
KDF9 


NE 


n| FORMAT (Ew.d) 
PUNCH TAPE na 


output J(device number,‘ +tD.dD19+2D’,a); 


WRITE (device number, The first group of D’s 
FORMAT ('+D-:-D.D--D contains t characters and 
@ + DD’),a); the second d characters. 
PRINT SCALED(w — 6),a; 
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example: printed result : 
97, FORMAT (E14.5) | __ 6.64359E — 24] 
PUNCH TAPE 97,A 
output 1(12,°+3D.5Dio + 2D’,A); [+006.64359i0 — 24] 
WRITE (12,FORMAT |+006.64359@ — 24] 
(‘+DDD.DDDDD@ + DD’),A); 
PRINT SCALED(8),A; | 6.6435900@ — 24] 


n| FORMAT (cHtezt) 
PUNCH TAPE n 


Knuth output 7(device number, ‘‘tezt’’); 
KDF9 WRITE TEXT (device number, ‘tezt’); 


NE PRINT $tezxt?; 
example: printed result: 


96| FORMAT(1OHHERE WE GO) JHERE WE GO| 
PUNCH TAPE 96 


output 1(12,‘HERE WE GO”), HERE WE GO 
WRITE TEXT (12,HERE WEGO'); [HERE WE GO| 
PRINT $HERE WE GO?; HERE WE GO 


DIFFERENT INPUT AND OUTPUT STATEMENTS 


n| FORMAT ({ },cHtezxt) 
PUNCH TAPE n,a 


Knuth — output J(device number, ‘{ }‘tezt’’,a); 


KDF9 WRITE (device number, FORMAT(‘{ }’),a); 
WRITE TEXT (device number, ‘tezt’) 


’ 


NE PRINT { } SAMELINE,a,$ text?; 
example: printed result: 
95| FORMAT (I2,6HIS ODD) | 31S ODD 
PUNCH TAPE 95,A 
output 7(12,/+D'IS ODD’’,A); [+318 ODD} 
WRITE (12,FORMAT(‘ + D’),A); |-+318 ODD] 


WRITE TEXT (12,IS ODD’); 


PRINT DIGITS(1) SAMELINE,A,$IS | 31S ODD| 
ODD?; 


n| FORMAT ({-},eX,{--}) 
PUNCH TAPE n,a,a, 


Knuth output 2(device number, ‘{-}eB,{--}’,a,a1); 


KDF9 W RITE (device number, FORMAT (‘{-} ;eS’),a); 
W RITE (device number, FORMAT (‘{--}’),a1); 


NE PRINT SAMETLINE,{ -},a,$Se?,{-+},a1; 
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output 2(12,°4+3D.2D//,4+4D.5Do + 
2D’,A,B); 
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n| FORMAT(Fw.d//Ew.d) 
PUNCH TAPE n,a,a 


output 2(device number, ‘+yD.dD//,+tD.dDio + 2D’,a,a1); 

W RITE (device number, FORMAT(‘+D--D.D--D; 

CC’),a); 

WRITE (device number, The first group of D’s 

FORMAT('+D--D.D--D contains y characters the 

@ = DD’),a); second d characters the 
third = and the fourth d 
characters. 

PRINT ALIGNE D(y,d),a,$L2?,SCALED(w — 6),a1; 

example: printed result: 

FORMAT (F7.2//E15.5) 137.04| 





PUNCH TAPE 93,A,B 


2.42620 — 10] 








W RITE (12,FORMAT(‘+ DDDD. 
DDDDD@ +DD’),B); 


PRINT ALIGNED(3,2),A,$L2?, 
SCALED(9),B; 





2.42620000@ — 10 
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n| FORMAT (cHtext{ }) 
PUNCH TAPE n,a 


Knuth output /(device number, ‘“‘tezt’{ }’,a); 


KDF9 WRITE TEXT (device number, ‘tezt’); 
W RITE (device number, FORMAT (‘{ }’),a); 


NE PRINT PREFIX ($tect?),{ },a; 

example: printed result: 
92| FORMAT (5H ETA = I4) | ETA = —12| 

PUNCH TAPE 92,A 

output 1(12, “ETA =’+3D’,A); | ETA = —012| 
WRITE TEXT (12,° ETA=’); | ETA = — 012 
WRITE (12, FORMAT (‘ + DDD’),A); 
PRINT PREFIX($ ETA = ?), | ETA = —12| 
DIGITS(3),A; 

n| FORMAT (e{:},c{--}) 

PUNCH TAPE n,q, ... , Qe,de+1,..-, 

Knuth output &(device number, ‘e({-}),c({--})’,a1, ... , ax; 


KDF9 OUTPUT (device number,q, ... , a); 


NE PRINT SAMELINE,{:-},a1, ... , Ge,{+*},@e+1, .-. » Qk; 
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example: printed result: 


91}  FORMAT(215,3F10.3) 
PUNCH TAPE 91,A,B,C,D,E 


22 =1933 — 7,532 0.010 22.222 
output 5(72,°2( + 4D),3(+5D.3D)’,A,B,C,D,E); 


|-+0022 + 1933 — 00007.532 + 00000.010 + 00022.222| 


OUTPUT (12,A,B,C,D,E); 







+2.20000000000@ + 01 
+1.93300000000@ + 03 
—7.53200000000@ + 00 
+1.00000000000 @ — 02 
+2.22220000000@ + 01 


PRINT SAMELINE,DIGITS(4),A,B,A LIGNE D(5,3),C,D,E; 







22 1933 — 7.532 0.010 22.222 


n| FORMAT ({ $) 
W RITE(Nec,n)aj,... , Ax 


Knuth — output &(Nc,‘k({ })’,a1,..., ax); 
KDF9 OUTPUT (Ne,a,, ... , ax); 


3.2 ALGOL PROCESSOR INPUT AND OUTPUT STATEMENTS 
AND THE APPROPRIATE FORTRAN INPUT AND OUTPUT 
STATEMENTS 


In this sectiou, input/output statements of different ALGOL pro- 
cessors are translated into FORTRAN II and FORTRAN IV. Only a 
few essential examples are chosen out of a possible great variety. 
Reference is made to sources of further details. As examples of the 
input/output device, paper tape reader and paper tape punch were 
chosen. 
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3.2.1 Knuth’s Proposal* 


The following statements are only a few examples of the great number 
of statements to manipulate input and output of data. All these 
statements are formulated as subprograms, only the call for these 
subprograms is given here. 





input /(device number,‘ ’,a),; n| FORMAT({ }) 

This statement causes the next ACCEPT TAPE n,a 
number on the device mentioned 

to be read in and to be assigned to The format must be set according 
a. No format statement necessary to the data. 

(standard input). 


output J(device number,’ ’,a); n| FORMAT(Ew.e) 

(standard output) PUNCH TAPE n,a 
w=e+6 

output /(device number, n| FORMAT(Fe.d) 

‘t+wD.dD’,a);+ PUNCH TAPE n,a 
e=wtd+2 

output J(device number, n| FORMAT(Iw) 

‘+7 D’,a);+ PUNCH TAPE n,a 
w=rt+l 

output J(device number, n| FORMAT (Ew.d) 

‘4tD.dDy + 2D’,a);t PUNCH TAPE n,a 
w=-t+d+e6 

output J(device number, n| FORMAT (cHtezxt) 

“‘text’’); PUNCH TAPE n 


* For more details see: A Proposal for Input/Output Convention in ALGOL 60, Com- 


muns Ass. comput. Mach. 7,273,628(1964). . 
+ If there is no sign, then the data are assumed positive. If there is a negative sign, 


the negative data will appear with a minus sign, the sign will be suppressed if the data are 
positive. 
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3.2.2 English Electric-Leo Processor* 


The following statements are only a few examples of the great variety 
of statements available to manipulate input and output of data. All 
these statements are formulated as library subprograms with a code 
number ANc. The necessary library subprograms for a particular pro- 
gram are placed in the outmost block of the program (that is, immedi- 
ately after the first begin). 


Example: 


BEGIN 
LIBRARY A1,A4,A12: 


a: = REA D(device number); n| FORMAT ({ }) 
ACCEPT TAPE n,a 


This statement causes the next 

number on the device mentioned The format must be set according 
to be read in and to be assigned toto the data. 

a. No format statement necessary 

(standard input). 


OUTPUT (device number,a),; n| FORMAT(E18.11) 
(standard output) PUNCH TAPE n,a 
W RITE (device number, n| FORMAT(Fe.d) 
FORMAT(‘—D--D.D:: D’);+ PUNCH TAPE na 


The first group of D’s may contain e =w+d44+2 
w characters and the second d 
characters. 





* For more details see: KD£9 ALGOL Users Manual, English Electric-Leo Computer 
Ltd. (December 1964). 

+ If there is no sign, then the data are assumed positive. If there is a positive sign the 
appropriate sign of the data are always given out, left-hand zeros are suppressed. If 
there is a not equal (+) sign the appropriate sign of the data are always given in the 
position specified by the + sign. 
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W RITE (device number, n| FORMAT (Iw) 
FORMAT (‘—D--D’),;+ PUNCH TAPE n,a 
There may be r D’s. w=r+) 

W RITE (device number, n| FORMAT(Ew.d) 
FORMAT(‘—D:-D.D--D PUNCH TAPE n,a 


@ a DD?’),a);+ 


The first group of D’s may contain w=t+d+6 
t characters and the second d 


characters. 
WRITE TEXT (device n| FORMAT (cHtect) 
number, ‘tezt’); PUNCH TAPE n 


3.2.3 Elliott Brothers Ltd. (NE) Processor* 


General rule: The format setting applies to all values to the right of this 
setting up to the end of the output statement. If there are two con- 
flicting format settings, the rightmost is valid. 


READ 11, -+ «5 Ok; n| FORMAT ({ }) 

ACCEPT TAPE n,aqy,..., ax 
k values are read into memory and 
are correlated with the identifiers The format must be set according 
Q1,..., Ak. to the data. 


No format statement necessary. 


* For more details see: 803 Library Program A104 ALGOL, Elliott Brothers Ltd. 
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PRINT aq, ..., Qk; 


The k values of the identifiers 
@),..., @y are printed out with e 
significant digits times a power of 
ten for real numbers and with 5 
significant digits for integer num- 


bers (standard output). 


PRINT DIGITS(r),a; 


PRINT ALIGNED(w,d),a, 


PRINT SCALED¢e),a; 


n| FORMAT (kEw.e) 


PUNCH TAPE n,qy, .. 


w—=-e+6 
or 


n| FORMAT (kIw) 


PUNCH TAPE n,qa,,... 


w=-64+1 


n| FORMAT(Iw) 
PUNCH TAPE n,a 


w=-r+] 


n| FORMAT(Fe.d) 
PUNCH TAPE na 


e=wid+2 


n| FORMAT(Ew.d) 
PUNCH TAPE n,a 


w=e+6 
d=w—iT7 


., ap 


» aE 





PRINT $ text ?; 


n| FORMAT (cHtect ) 
PUNCH TAPE n 





DIFFERENT INPUT AND OUTPUT STATEMENTS 


3.2.4 ALCOR Group* 


READ(a, ..., ax); n| FORMAT( }) 
ACCEPT TAPE n,a,..., ax 


k values are read into memory and 

are correlated with the identifiers The format must be set according 
Qj,..., Qk. to the data. 

No format statement necessary. 


PRINT (a, ..., ax); n| FORMAT(kEw.e) 
PUNCH TAPE nm, ..., ax 


The k values of the identifiers 

Q},..., a are printed out withe w =e +6 
significant digits times a power of 

ten for real numbers and with 6 

significant digits for integer num- or 





bers. 
n| FORMAT (kIw) 
PUNCH TAPE n,q,..., 
w=-od-4+1 
W RITE (‘‘text’’); n| FORMAT (cHtext) 


PUNCH TAPE n 





* For more details see: ALGOL-Manuel der ALCOR-Gruppe: Elektronische Rechenan- 
lagen 5/6 (1961) and 2 (1962) and Appendix 5 of the manuals of the different ALCOR 
processors. 
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Part 4 


ALGOL 60> FORTRAN II and IV 


Ox the following pages the left column contains ALGOL 60 statements 
and the right column the appropriate FORTRAN statements.* First 
the translation into FORTRAN II is given, this translation is also valid 
for FORTRAN IV, as long as no additional translation is given.t The 
beginning of a translation into FORTRAN IV is indicated by FIV. 
The sequence of statements is in alphabetical order, except where this 
rule is broken to place together statements which belong together. 
After the translation of closely related statements (as if... then or 
if...then... else or for... do, etc.) a few examples of combinations 
of these statements are given. Some parts of a computer program (such 
as subprograms, go to, switch, etc.) are easier to translate when treated 
as a group of statements; such statements are grouped together. 
Groups with essential combinations of statements inside this group are 
translated first. After this, a few examples show how these groups can 
be combined together. Sometimes it is necessary to change the type of 
an identifier (as indicated by an A or W as the first character of this 
identifier), this change must be done in a preceding statement. The 
meaning of the notes (abbreviated by N) and restrictions (abbreviated 
by R) is given in Part 2.2 and 2.3. For explanation and example 
card reader and card punch are assumed as input/output devices. A 
reference to IBM 1620 includes both IBM 1620; and 1620n. 
Important remark: Occasionally, the length of a FORTRAN state- 
ment exceeds the width of a line. To indicate that the next line should 
appear as a continuation of the previous line, we use two arrows > <-. 
The following example makes this clear: 
The statement 


DIMENSION Amatrizx(Nc),—> 


<Amatrix(Nc2) 
should actually be written as: 


DIMENSION Amatriz(Nc,),Amatrix(Nc2) 


* Statement numbers (labels) are separated from the statement itself by some spaces, 
indicating in this manner their actual appearance on a record. 

{ A translation into FORTRAN IV is given only if it is simpler than the FORTRAN II 
translation. 


ALGOL -— FORTRAN 


ALGOL->FORTRAN abs 


...abs(Aa)...; ... ABS(Aa)... 


N1,N42 


Exception: IBM 1401, IBM 1620,, 
in this case: 


I F(Aa)n,,n2,n2 
n,| Aa = —Aa 
Nel er Aw as 
...abs(Na)...; Aa = IABS(Na) 
... Aa... 


Nl 


Exception: IBM 1401, IBM 1620,, 
in this case: 


IF(Na)n,,n2,n2 
n| Aa = —Na 
GO TO ng 
n2o| Aa = Na 
ng] ...Aa... 


Exception: IBM 16201: 
Aa = ABSF (Na) 
meee. (eae 


...abs(Aterm)...; ... ABS(Aterm)... 


N1,N2,N42 


Exception: IBM 1401, IBM 1620, 
in this case: 


Av = Aterm 

IF (Av)n,,n2,n2 
m| Av = —Av 
Ne| ... AV... ‘. 
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abs 


ALGOL->FORTRAN 





...abs(Nterm)...; 


addition: 


a, + a2 


...arctan(a)...; 


Av = IABS(Nterm) 
ee. (eee 


N1,N2 


Exception: IBM 1401, IBM 1620,, 
in this case: 


Nv = Nterm 
IF(Nv)ny,ne2,ne 

m| Av = —Nv 
GO TO ng 

nme] Av = Nv 

ns| 22. AV... 


Exception: IBM 16201: 
Av = ABSF(Nterm) 


... ATAN(Aterm)... 


..arctan(term)... ; 


arithmetic operators: 


x 1+ 


a. ees 
a, + a2 
N2 
... ATAN(Aa)... 
RI1,N42 
R1,N2,N42 
+ 
. 
| 
not available (see under: division) 
ok 
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ALGOL~>FORTRAN 


array declaration: 


see array matriz[ | or real array 
matriz[ ] or integer array 
matrix[ ]. 

alray matriz ; 

see also: 

procedure token(..,.., 
Nmatriz,..,..); 


array matriz[ Nc,: Neco]; 


array matriz[ —Ne,:Nce]; 


array declaration 


This statement indicates that the 
parameter matrix of the subpro- 
gram is an array identifier. 

Omit in translation. 


DIMENSION Amatriz—> 
<(Ncz) 


R7 
Nez < 8B 


DIMENSION Amatriz— 
<(Ne, + Nee + 1) 


R7, N44 
No + Ne +1 < B 


Whenever Amatriz appears in the 
program, the subscript must be 
increased by N, + J. 


example: 


array J[ — 12:38]; 


J(L] eee: Wey a 8 Fs 


DIMENSION ZJ(51) 


ZJ(L + 13) = A*B 
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array 


array matriz[ —Nce,:—WNce2]; 


array AU RT| —30:—10); 


KURT(L)}: = A/B; 


array matriz[1:Nc]; 


array matriz[0:Nc}]; 


array DOO F([0:28); 


DOOF{L} : = B/C — D; 


ALGOL>FORTRAN 


DIMENSION Amatrizx(Ne,) 


R7 

No < B 

Whenever Amatriz appears in the 
program, one has to multiply the 
subscript by —1. 

Since a negative subscript is not 
permitted, an additional state- 
ment must precede the appearance 
of the subscripted variable identi- 
fier. 


example: 


DIMENSION URT(80) 


Fy ean § 
URT(L1) = A/B 


DIMENSION Amatriz(Nc) 


R7 
Ne < B 


DIMENSION Amatna— 
«(Ne + I) 


R7, N44 
Ne+1<8 


Whenever Amatrix appears in the 
program, the subscript must be 
increased by +1. 


example: 


DIMENSION DOOF(29) 


DOOF(L + 1) = B/C — D 
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ALGOL—FORTRAN 


array matriz[if a, < ae then 
Nc, else Nee : Nes]; 


array matriz[Nc,: if a + a, then 
Nee else Nes]; 


array matrizl,matrix2[1:Nc}; 


array matrix[| Nc;:Nc2,Ne3:Nca]; 


array matriz[1:N ¢1,1:Nco]; 


array matrix[ N c1:N c2,.N c3:N cea, 
Nes: Nee]; 


array 


DIMENSION Amatrix(Ncs) 


R7 
Nez < B 


I F(a — ay)n,ny,n 
n| DIMENSION Amatriz(Nce) 
GO TO ne 
m| DIMENSION Amatrixz(Ncs) 
no} CONTINUE 


R7 

Nee2,Nc3 < B 
DIMENSION Amatrizl1— 
<(Nc),Amatrix2(Nc) 

R7 

Ne < B 
DIMENSION Amatrniz— 
<(Ncee,Nca) 

R7 

Ne2,Nca < 8 
DIMENSION Amatrizx— 
<(Ne,,Nc2) 

R7 

Nei,Nee2 < 6 
DIMENSION Amatriz— 
<(Nc2,Nc4,NCe) 

R7 


Nee,Ncea,Nee < B 
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array 


array matriz[1:Nc,,1:Nc2,1:Nces3]; 


array matriz[Nc,:Nce2,Ncs3: 
Nea, ke 0 Nex—-1: Nex]; 


array matriz1,matrix2 ,matrixd 
[1:-Ne,],matrix4,matrixd 
[1:Nce,1:Ncs]; 


assignment statement: 


aj. = a2, 
ag:N12 
logical assignment statement: 


aa; 


multiple assignment statement: 
Q\: = Q2: = a3: = a4; 

a4:N12 

All identifiers are of the same type. 


ALGOL—->FORTRAN 


DIMENSION Amatriz— 
<(Nc;,Nce2,Ncs) 


R7 
Nc;,Nce,Nes3 < B 


Exceptions: IBM 1401 and IBM 
1620; permit a maximum of two 
dimensions only for an array. 


For k > 6 no translation possible 
for IBM processors. 


DIMENSION Amatrizx1l—> 
<(Nc;),Amatrix2(Ne),—> 
<Amairiz3(Ne,),Amatrix4—> 
<(Nce2,Nc3),Amatrixd > 
<(Nce,Ncs) 


R7 
Nc,Nc2,Ne3 < 8 


a, = ag 
a2 -N 2,R3 
No logical assignment statement 
allowed in FORTRAN II. 
FIV: 
a.HQ.a, 
aj = a 
aoe = %& 
ag — % 
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ALGOL->FORTRAN 


begin 


begin comment fezt; 


For the computation, this state- 


ment is equivalent to begin. 


Boolean V1, oo eg Uk; 


Boolean procedure foken; 


end; 


begin 


Acts as an opening bracket. Omit 
in translation. 


C teat 


text must be written in columns 2 
through 72, for a longer text 
additional cards must be _ used. 
These also must start with a C in 
column 1. No limit on the number 
of comment cards. 


No logical variables allowed in 
FORTRAN II. 
FIV: 
LOGICAL v4, ..., VE 
No logical subprogram allowed in 


FORTRAN II. 


FIV: 
SUBROUTINE token 
COM MON Vin 0 0 0 yg UF 


RETU RN 
END 


R5,N21,N29 


Boolean procedure 


Boolean procedure token(. . 


Chipnia aks wk eae 


Boolean procedure token( 
Vie ep Vee eae 


end; 


N22 


9 @ e 


ALGOL->FORTRAN 


No logical subprogram allowed in 
FORTRAN II. 


FIV: 


LOGICAL FUNCTION — 
<token(..,..,C1,...5—> 
SOB i ce 558 ) 


RETURN 
END 


R5,N21,N29,N35 


No logical subprogram allowed in 
FORTRAN II. 


FIV: 


LOGICAL FUNCTION —> 
<token(..,. 2, U1, 0.6 5> 
<Uk, «+5. ) 


COMMON %,...,»; 


RETURN 
END 


R5,N21,N29,N35 
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ALGOL-FORTRAN 


Boolean procedure token(. . 


Amatrizx,..,..); 


array Amatriz; 
end; 


N22 


Boolean procedure token(. . 


token1,..,..); 


procedure token1; 
end; 


N22 


Boolean procedure 


No logical subprogram allowed in 
FORTRAN II. 


FIV: 


LOGICAL FUNCTION — 
<token(..,.., Amatrizx,— 
<..,..) 

COMMON w,... , 0; 
DIMENSION Amatriz(Nv) 


RETURN 
END 


R5,N21,N29,N35 
Nv is an arbitrary variable identi- 


fier. 


No logical subprogram allowed in 
FORTRAN II. 


FIV: 
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LOGICAL FUNCTION —> 
<token(..,..,tokenI,—> 


COM MON Vi, 22 2 5 Vi 


RETU RN 
END 


Boolean procedure ALGOL->FORTRAN 





R5,N21,N29,N35 
The call for the subprogram must 
be preceded by EXTERNAL— 


<-tokenl 
Boolean procedure token(v,v,c) No logical subprograms allowed in 
text:(a,V2,A2); FORTRAN II. 
eer FIV: 
end; LOGICAL FUNCTION— 


<token(v,v1,C,a1,02,42) 
COMMON wv, ..., 2; 


N22 
RETURN 
END 
R5,N21,N29,N35 
Boolean procedure token(..,..., LOGICAL FUNCTION— 
..jtextI:(..,...,..)text2: <token(. 6,665 ee yee ye 
eee. Ce i RED. PAGE SE aS ee) 
oe COMMON w,...,%, 
end; shes 
RETURN 
END 
N22 
R5,N21,N29,N35 
scomment text; C text 


text must be written in columns 2 
through 72, for a longer text 
additional cards must be used, 
also starting with a C in column 1. 
No limit on the number of com- 
ment cards. 
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ALGOL->FORTRAN 


...Cos(a)...; ..- COS(Aa)... 


R1,N42 


FIV: 


...COS(Aa)... 


Rl 

...cos(term)... ; ..-COS(Aterm) . 
RI1,N2,N42 
FIV: 

..-COS(Aterm)... 

R1,N2 

division: 

a /a2 Aa;/Aaz 

@,a2:N12 N2 

The result is of real type. 

Na, ~ Naz Na;/Naz 


The arithmetic operator -— 1s ex- 
clusively used to divide operands 
of the integer type. 
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cos 


end 


end; 
end 


end text; 


For the computation this state- 
ment is equivalent to end;. 


ALGOL->FORTRAN 


CONTINUE 
END 


end must be translated by CON- 
TINUE if it is not the last 
(physical) statement of the AL- 
GOL program. Exception: end 
in a Boolean procedure or integer 
procedure or real procedure or 
procedure must be translated as 
RETURN 


END 

If it is the last statement of the 
program then it must be trans- 
lated by END. 


CONTINUE 
C teat 
or 

END 
C teat 


See also under end. 

text must be written in columns 2 
through 72, for a longer text 
additional cards must be used, 
also starting with a C in column 1. 
No limit on the number of com- 
ment. cards. 
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ALGOL->FORTRAN entier 


...entier(a)... IF (a)n,ne,ne 
m| Nv =a — 1. 
GO TO ng 
ne] Nv =a 
nx] CONTINUE 


DUES 3 
Note that the result is of integer 
type. 
example: 
A: =K + entver(C); IF(C)ni,n2,n2 
| NC =C — re 
GO TO N3 
Ns| NC =C 
nx} CONTINUE 
A=kK+NC 
NC :N3 
FIV: 
.. entier(Aa)...; ... AINT(Aa)... 
..enter(Na)...; 
...entrer(term)... ; IF (term)n,,n2,n2 
m| Nv = term — 1. 
GO TO ng 


neo] Nv = term 
nj} CONTINUE 
ee eee 


term :N2 


entier 


... entier(abs(a))... ; 


A: =K + entier(abs(C)); 


A: = L + entier(abs(C)); 


... entter(abs(term))... ; 


ALGOL->FORTRAN 


Nv = ABS(a) 
ie RN De cick 


Exception: IBM 1401, IBM 1620. 
For IBM 1620: 


example: 


Nv = ABSF(a) 
eet Ooi d 


NC = ABSF(C) 
A=K+NC 


For IBM 1401 and IBM 1620;: 


| 


Nel 
n3| 


example: 
n| 


Nel 
ng| 


IF (a)ny,n2,n2 
Nv = —a 
GO TO ng 
Nv =a 
CONTINUE 
..- Nv... 


IF (C)n1,n2,n2 
NC = —C 
GO TO ng 
NC =C 
CONTINUE 
A=L+WNC 


Nv = ABS(term) 
ere rae 


term :N2 


Exception: IBM 1401, IBM 1620 
For IBM 16201: 
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Nv = ABSF (term) 
sah Oe io 


ALGOL->FORTRAN 


...enher(arctan(a))...; 


... entier(arctan(term))...; 


...entier(exp(a))...; 


entier 


N2 


For IBM 1401 and IBM 1620;: 
IF (term)ny,n2,ne 

n| Nv = —term 
GO TO n3 

n2| Nv = term 

n3} CONTINUE 
Se INO edie 


term :N2 


Nv = ATAN(a) 
SUN Osage 


N42 


Exception: IBM 1401: 
Arctangent is not a predefined 
function, one has to evaluate the 
value by using a series approxi- 
mation. 


Nv = ATAN(term) 
ee eee 


term :N2 
N42 


Exception: IBM 1401: 
Arctangent is not a _ predefined 
function, one has to evaluate the 
value by using a series approxi- 
mation. 


Nv = EX P(a) 
seed Dhan. 


N42 
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entter 


...entier(exp(term))...; 


...entier(In(a))...; 


...entier(In(term))...; 


...enher(sqrt(a))...; 


ALGOL->FORTRAN 


Nv = EX P(term) 
dV Ore. 


term :-N2 


N42 


Nv = ALOG(a) 


Exception: IBM 1401, IBM 1620, 
in this case: 

Nv = LOG F(a) 

ae |) eee 


Nv = ALOG(term) 
5. ser dV Dace 


term :N2 


Exception: IBM 1401, IBM 1620, 
in this case: 

Nv = LOG F (term) 

nae l¥ Oso 


term :N2 


Nv = SQRT(a) 
Saeed U aie 


N42 


Exception: IBM 1401: 
Nv = Aa**0.5 
-Nv... 
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ALGOL—~FORTRAN 


... entrer(sgri(term)) ...; 


...erp(a)...; 


...exp(term)...; 


Nv = SQRT (term) 


Nv... 


term :N2 
N42 


Exception: IBM 1401: 


Nv = Aterm**0.5 


eI Os a.X 


Aterm :N2 


... BXP(Aa)... 


R1,N42 
FIV: 


...HXP(Aa)... 


Rl 

. HX P(Aterm)... 
R1,N2,N42 
FIV: 


...HXP(Aterm)... 


R1,N2 


entver 


exponentiation 


exponentiation : 


a;ta 


Exception: 


Na;tAa 
a,a, :N12 


T : = NCtAP; 


exponentiation : 


a;tacta 


ay} (aefa) 
2,Q1,Q2 :N12 


expression : 


ALGOL>FORTRAN 


a,**a 


Aa, = Na, 
Aa,**Aa 


example: 
AC = NC 
T = AC**AP 


(a,**ao)**a 
a **(ao**a) 


The type of an expression will be The type of an expression will be 
integer if all the operands are integer if all the operands are 
integer, otherwise the expression is integer. 


of real type. 


... false... ; 


The type of an expression will be 
real if all the operands are real. 

If the operands of an expression 
are both of the integer type and 
of the real type, the expression is 
invalid. 


No logical value allowed in FOR- 
TRAN II. 


FIV: 
... MALSE. ... 
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ALGOL->FORTRAN for 
for v: = 4},d2,..., a, do DO n Nv, = 1,k 
begin GO TO(ny,n2, ..., Ne), NY 
dicted n1| v=ay 
end: sh 

ne Vv = ae 


@j,@o,..., ap:N12 
N40 


Nk v= adr 


n| CONTINUE 


N7 
If ... is very long, it is useful to 
define the contents of ... as a 


SUBROUTINE. This SUB- 
ROUTINE may then be called 
instead of writing .... 


R6 
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for...step... until 


for v: = a, step a2 until as do 
begin 


end; 


Ql) ,a2,a3:N12 
N40 


n| 


ALGOL~>FORTRAN 


Na = A BS ((ag = a,)/—> 
<az) + 1.0000001 

DO n Na, = 1,Na 

ag = Nay — 1 

V = Ag*de + a 


CONTINUE 


N5,N7,N42,N43 


Exception: IBM 1401, IBM 1620, 
in this case: 


| 


Ne| 
nN3| 


Na = (a3 — a)/ae 
IF(Na)ni,n1,n2 

Na = —Na+1 
GO TO ng 

Na = Na-+i1 
DO n Na, = 1,Na 
ag = Nay — 1 

Vv = Ag*a2 + a1 


n| CONTINUE 


N5,N7 


ALGOL—-FORTRAN 


for Nv: = m, step me until m3 do 


begin 

end; 

N40 

for Nv: = 1 step J until m3 do 
begin 

end; 

N40 

for Nv: = 0 step J until m3 do 
begin 

end; 


N40 


for ...step... until 


DO n Nv = ™m1,773,™mMe 


n| CONTINUE 


N7 


DO n Nv = 1,m3 


n| CONTINUE 


N7 


Na =m; + 1 
DO n Na, = 1,Na 


Nv = Na, — 1 


n| CONTINUE 


N7 
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for...step... until ALGOL->FORTRAN 


for v: = Q},@2,a3 step a, until as, v =a, 

agdo...; COMMON %,..., 
CALL token(v) 
v = a 

Q,..., a:N12 CALL token(v) 

N40 Na = ABS((as — as)/—> 


<a,4) + 1.0000001 
DO n Na, = 1,Na 
ag = N ay 1 
V = dg*d, + ag 
CALL token(v) 
n| CONTINUE 
v = a& 
CALL token(v) 
CONTINUE 
SUBROUTINE token(v) 
COMMON w,...,%% 
RETURN 
END 
R6,N5,N7,N21,N42,N43 
Exception: IBM 1401, IBM 1620, 


in this case: 
V=—aQ\ 
V = a2 


Na = (ds — ag)/d4 
IF(Na)n,11,n2 

m| Na = —Na+1 
GO TO ng 

ne] Na =Na+1 

ns| DO n Nay = 1,Na 
ag = Nay — 1 
V = Ag*d4 + ag 


Vv = 6 
CONTINUE 


N7 
66 


ALGOL>FORTRAN 


for v: =—a,terml while az < ag 
do...; 


Ne| 
Q,03,a3:N12 | 
N40 
n| 
N7 
for v: =a,terml while a2 < az 
do...; 
No| 
Q,02,a3:N12 | 
N40 
n| 
N7 
for a: =a,terml while az = az 
do...; 
na 
A ,A2,03:N12 na| 
N40 
n| 
N7 
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for 
v=a4Q) 


v = term! 
IF (az — ag)ni,n,n 


GO TO no 
CONTINUE 


v=—AQ\ 


v = term! 
IF (ae —. a3)N1,21,2 


GO TO ne 
CONTINUE 


v0=aQ1 


v = term! 

IF (a2 — ag)n,n,n 
GO TO ne 
CONTINUE 


... While 


for... while 


for v: = a,,terml while az > as 
do...; 


N2| 
A) ,a2,a3:N12 | 
N40 
n| 
N7 
for v: =aj,terml while ae > a3 
do...; 
N| 
(t),A2,a3:N12 n1| 
N40 
n| 
N7 
for v: =a;,terml while a2 + a3 
do...; 
Nel 
Qj ,A2,a3-N12 n| 
N40 
n| 
N7 
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ALGOL->FORTRAN 


v=aQ\ 


v = term! 
IF (ag — ag)n,n,n1 


GO TO n2 
CONTINUE 


V=aAQ1 


v = term! 
IF (ag — a3)n,n,n1 


GO TO n2 
CONTINUE 


Vv=Q 


v = term! 

IF (ae = a3)N1,N,N1 
GO TO nz 
CONTINUE 


ALGOL->FORTRAN 


for v: =a,terml while a, = ae 
a3 >aagdo... : 


a,a;,...,a4:N12 


N40 


for v: = a,term1 while a; = a2 V 
a3 >as,do...; 


a,a;,...,a4:N12 


N40 


for v: =a,term1l while a; = a2 A 
a3 >a,gdo...; 
a,a,,...,@4:N12 

N40 


for v: =a,term1 while a, = az > 
a3 >agdo... ss 


a,a1,..., a4:N12 


N40 
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for 
v=a 


v = term! 

IF (a, — de)ne,m1,n2 
IF (a3 — a4)n3,n3,n 
IF (ag oe A4)N,N,Ng 


GO TO na 
CONTINUE 


v=—a@ 


v = term! 
IF (a, — a2)n,n,n 
IF (ag — a4)n2,n2,m 


GO TO ng 
CONTINUE 


v=a 


v = term! 
I F(a, — ae)n,ni,n 
IF (ag — a4)n,n,ne 


GO TO N3 
CONTINUE 


v=—a 


v = term] 

I F(a, — de)ne,n1,n2 
IF (a3 — aa)n3,n3,n1 
IF (ag = a4)n,n,ng 


GO TO 
CONTINUE 


... While 


for... while 


for v: = a,terml while 7 a, > ae 
do...; 


Q,Q1,a2:N12 
N40 


for a: = a;,term1 while az < a3,d4 
do...; 


a, eee tae 5 a4:N12 
N40 


ALGOL->FORTRAN 
v=—a€@ 


n2| v = termi 
IF (a aan A2)N1,N1,n 


GO TO ne 
n| CONTINUE 


Vv=—aQ 
COM MON Vin oe 0 y Vj 
CALL token(v) 
ne] v = terml 
IF (ae = Ag)n1,21,n 
nm| CALL token(v) 
GO TO n2 
n| v=a 
CALL token(v) 
CONTINUE 
SUBROUTINE token(v) 
COMMON Vino 2+ Vi 
RETURN 
END 


R6,N7,N21 


Exception: IBM 1401, IBM 1620, 
in this case: 
V=aQ) 


n2| v = term! 
IF (az — ag)ni,m,n 


| ee 
GO TO no 
n]| v=a 
CONTINUE 
N7 
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ALGOL—--FORTRAN 


for v: = a,a2 step az until a4,az5, 
terml while ag + a7,ag dO... ; 


1) eee ag:N12 
N40 


for...step... until... while 


V=aQ)\ 

COMMON Vino 00 VJ 
CALL token(v) 

Na = ABS((a4 — ae)/> 
<a3) + 1.0000001 
DO n Nay = 1,Na 
a2 = Nay — 1 

Vv = A12*a3 + Ae 
CALL token(v) 
CONTINUE 

v= a5 

CALL token(v) 

v = term! 

IF (a = Q7)N1,N2,N1 
CALL token(v) 

GO TO ng 

Vv = ag 

CALL token(v) 
CONTINUE 
SUBROUTINE token(v) 
COMMON %,..., Vj 


RETU RN 
END 


R6,N5,N7,N21,N42,N43 


Exception: IBM 1401, IBM 1620,, 
in this case: 


Vv =aAQy\ 


Na = (a4 —= a2) /a3 


for... while...step... until 


for v: = a,,term1l while az > as, 
a4,a5 Step ag until a7 do... ; 


Q1,..6, a7:N12 
N40 


n| 


Ne| 
Ns| 


n| 


N6| 
nal 


n5| 


N7 


Ne| 
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ALGOL->FORTRAN 


IF (Na)n,n,n2 

Na = —Na+l1 
GO TO N3 

Na = Na-+l1 
DOn Nay = 1,Na 
aig = Nay — 1 

V = A2*a3 + ae 


CONTINUE 


v= 45 
v = term! 


IF (ag — a7)n4,ns5,N4 
GO TO ne 
Vv = dg 


CONTINUE 


V=aQ\ 

COMMON Vin, 20+, Uj 
CALL token(v) 

v = term! 

IF (az — ag3)n,n,n1 
CALL token(v) 

GO TO ng 

VU = M4 

CALL token(v) 

Na = ABS((a7 — as)/> 
<<a) + 1.0000001 
DO no Nay, = 1,Na 
ayo = Nay, — 1 

V = A12*a7 + ag 
CALL token(v) 
CONTINUE 


ALGOL->FORTRAN for...step...until...step... until 


SUBROUTINE token(v) 
COMMON %,..., 
RETURN 
END 

R6,N5,N7,N21 


Exception: IBM 1401, IBM 1620,, 
in this case: 
v= a) 


ne| v = term! 
IF (az — a3)n,n,ny 


GO TO N6 


n| v=a 


Na = (a7 — as)/a¢ 
IF(Na)nz2,n2,n3 

ne] Na = —Na+1 
GO TO N4 

nx} Na = Na +1 

na DO 15 Nay = 1,Na 
a2 = Nay — ] 
V = A12*dg + a5 


ns) CONTINUE 


N7 


for v: = a1,d2 step a3 until a4,a5,06 v=a 
step a7 until as,a9 do... ; COMMON v,..., 0; 
CALL token(v) 
Na = ABS((a4 — az)/> 
Qa,...,A9:N12 <a3) + 1.0000001 
N40 DO n Nay = 1,Na 
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for...step...until...step... until 


| 


ALGOL->FORTRAN 


a2 = Nay — | 

V = dj2*dg + ae 

CALL token(v) 
CONTINUE 

v= a5 

CALL token(v) 

Naz = ABS((ag — ae)/—> 
<-a7) + 1.0000001 

DO N\ Naz = 1,Naz2 

ao = Nao —— J 

V = A22*a7 + a 

CALL token(v) 
CONTINUE 

v = ag 

CALL token(v) 
CONTINUE 
SUBROUTINE token(v) 
COMMON Vin. 2-4 Uj 
RETURN 

END 


R6,N5,N7,N21,N42,N43 


Exception: IBM 1401, IBM 1620,, 
in this case: 
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Ne| 


n3| 
nal 


ns| 


Vv =aQy\, 


Na = (a4 — ag)/ag 
IF(Na)ne,ne,n3 

Na = —Na — 1 
GO TO N4 

Na = Na-+1 

DO 15 Nay = 1,Na 
ajo = Nay — 1 

V = A12*a3 + de 


CONTINUE 


Vv = a5 


Naz = (dg — ae)/az 


ALGOL->FORTRAN for...step... until... input/output 


I F(Naz2o)n6,N6,27 

nNe| Nazo = — Naz — 1 
GO TO ng 

n7| Naso = Naz + 1 

Ng| DO Ng Nag, = 1,Nazo 
ao, = Nan — 1 
V = Ag2*a7 + ag 


no| CONTINUE 


Vv = ag 


CONTINUE 


N7 


for Nv: = m, step me until ms do nj FORMAT ({ }) 
input/output statement for: READ naira No) 
matriz[{ Nv); PUNCH Ni MALTIX ’ 


<Nv = ™\,mM3,mM2) 


R4,N8 


Exception: IBM 1620;, in this 
case : 
n| FORMAT({ }) 
DO N1 Nv = ™m1,7™m3.Me 
ec n, matriz(Nv) 
m| CONTINUE 


R4,N8 
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for...step... until... input/output 


for Nv: = m, step —me until ms 
do input/output statement for: 
matria[ Nv]; 


for Vv: = —m, step me until ms 
do input/output statement for: 
matriz[ Nv]; 


ALGOL-FORTRAN 


FORMAT ({ }) 

Na = (m, — ms)/me + 1 
DO n, Naz = 1,Na 

Nv =m, + me — mo*Nag 
READ 
PUNCH 
CONTINUE 


n| 


n,matriz( Nv) 


| 


R4,N8 


FORMAT ({ }) 
Mm =m +1 
READ 
PUNCH ™ 
<(Nv + m),Nv = 1,m3,me2) 


n| 


(matrix —> 


R4,N8 
See also: array matriz[ —Nc,:Nce] 


example: 


NE 803: 
ARRAY Z(—2:10); 


FOR K: = —2 STEP 2 UNTIL 
10 DO READ 2(K): 


THETA: = D*Z(K); 


DIMENSION 2Z(18) 


n| FORMAT( }) 
READ 2nJ(Z(K + 8),> 
<«K =1,10,2 


THETA = D*Z(K + 8) 
Exception: IBM 1620;, in this 
case: 

n| FORMAT({ }) 
Mm =m +1 
DO n, Nv = 1,m3,m2 
peered n,matriz(Nv + ma) 
CONTINUE 


n| 


R4,N8 
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ALGOL->FORTRAN for... step... until... input/output 


for Nv: = —m step —me until | FORMAT({ }) 
—m3 do input/output statement READ 
for :matriz[Nv]; PUNCH ™\matrix(N0),—> 


<Nv = ™1,m3,m2) 


R4,N8 

See also: array matria[—Ne: 
—N Ce] 

Exception: IBM 1620;, in this 
case : 


n| FORMAT({ }) 
DO n, Nv = m,m3,me 


pocaree H n,matria(Nv) 


m| CONTINUE 


R4,N8 


for Nv: =m, step 1] until m2 do n| FORMAT({ }) 
input/output statement for: READ ne 
matrixz[ Nv]; PUNCH °° 


<Nv = m\,m2) 


matrix(Nv),—> 


R4,N8 


Exception: IBM 1620;, in this 
case : 
n| FORMAT ({ }) 
DO Ni Nv = my 1,meo2 
READ 
PUNCH 
m| CONTINUE 


n,matrix( Nv) 


R4,N8 
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for...step... until... input/output 


for Nv: = 1 step 7 until ms do 
input/output statement for 
matrix[ Nv]; 


for Nv: = 0 step me until ms do 
input/output statement for: 
matriz[ Nv]; 


ALGOL->FORTRAN 


n| FORMAT({ }) 
READ 
PUNCH 
<Nvy = 1,ms) 


n,(matriz(Nv), > 


R4,N8 


Exception: IBM 1620;, in this 
case : 

n| FORMAT ({ }) 
DO Ni Nv = 1,ms 
mote H n,matriz( Nv) 
CONTINUE 


| 


R4,N8 


n| FORMAT({ }) 


<1),Nv a 1,m3,mz2) 


R4,N8 


See also: array matriz[0 :Nc] 
Exception: IBM 1620;: in this 
case: 

n| FORMAT({ }) 
DO n, Nv = 1,mz,me 
aril n,matriz(Nv + 1) 
CONTINUE 


| 


R4,N8 
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ALGOL->FORTRAN for... step... until 


for Nv: =1 step 1 until ms do | FORMAT ({ },{ }) 

input/output statement for: 

matrix{ Nv],matriz1[Nov]; PuNCcH ™' 
<matirizl(Nv),Nv = 1,ms3) 


matriz(Nv),— 


R4,N8 


Exception: IBM 1620;, in this 
case : 
n| FORMAT(, },{ }) 
DO nN} Nv = 1,m3 
READ 
PUNCH 
<matrizl(Nv) 
m| CONTINUE 


n,matriz(Nv),—> 


R4,N8 


go ton; GO TOn 


N20 

Leading zeros do not affect the n<¢ 
meaning of the label, i.e.: 

go to 0015 ; is equivalent to go to 

15; 
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go to jump[ Nov]; 


N19,N33 


go to jump|term|); 


N19,N33 


ALGOL—--FORTRAN 


ASSIGN n TO v 
GO TO v,(n) 


n<e 


Exception: IBM 1401, IBM 1620, 
in this case: 


v must be replaced by an integer 
number n. 


GOTOn 


n| 
GO TO(n1,ne, Se eds nk), Nv 
Nv < 10 
Nv = term 
GO TO(n1,ne, be scien nNk),Nv 
Nv < 10 
term :N2 
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ALGOL->FORTRAN go to 


go to jyumplif v <a then Nc, else IF(v — a)na,nm,nm 
Nee]; Nn| Nv, = Nc, 
GOTOn 
Nm| Nu = Neo 
a:N12 n| GO TO(ni,n2,..., ne),Nry 
N19,N33 Nv < 10 
Nn,Nm F N1,N2,..., Nk 
go to jumplif v < a then Nc; else IF(v — a)nn,nm,nm 
Nee]; nn| Nv = Ney 
GO TOn 
Nm| Nu = Nee 
a:N12 n| GO TO (n,n, ..., nx),Nv 
N19,N33 Nv < 10 
Nn,sMm + N1,N9,..., Nk 
go to jumplif v =a then Nc; else IF(v — &)nn,nm,nm 
Nee]; Nn| Nv, = Nee 
GOTOn 
Mm| Nv = Ne 
a:N12 n| GO TO(n1,ne, ..., nx), Nr 
N19,N33 Nw, < 10 
Nn,Nm + N1,N2,..., Nk 
go to jump[if v > a then Nc, else L[F(v — a)nn,nm,Nm 
Neo}; Nn| Nv = Nee 
GO TOn 
Nm| Nu = Ney 
a:N12 n| GO TO(m,ne2,..., rx),N01 
N19,N33 Nv, < 10 
Nn,Nm FF N1,N2,..., Nk 


8] 


go to 
go to »ump{if v > a then Nc, else 
N C2]; 


a:N12 
N19,N33 


go to jumplif v + a then Nc, else 
Nee]; 


a:N12 
N19,N33 


go to if v <a then Nc, else Neo; 


a:N12 
N20 


go to if v < a then Nc; else Nez; 


a:N12 
N20 


go to if v = a then Nc; else Neo; 


a:N12 
N20 


go to ifv > athen Nc; else Neo; 


a:N12 
N20 


ALGOL>FORTRAN 


IF(v = A)Nn,Nn;Nm 


Nn| Nv = Nee 
GO TOn 
Nm| Nv = Ne, 
n| GO TO (ni,ne2,..., 2x), 
Nv, < 10 


Nn Mm = N1,N2, ee eg Nk 


IF(v — a)nn,nm,nn 


Nn| Nv = Nc 
GO TOn 
Nm| Nv = Nee 
n| GO T O{n4,N2, BG ky nz), Ny 
Nv, < 10 


Nn,Nm F N1,N2,...5 Mk 


IF(v — a)ny,n2,ne2 


m| GOTO Ny 
Ne| GO TO Nee 
CONTINUE 
No,Nce < C 
IF(v — a)ny,n1,Ne 
m| GOTO Ney 
ne] GO TO Nee 
CONTINUE 
Ne,Nez < ¢ 
IF(v — a)ni,ne,n1 
| GO TO Neco 
ne] GOTO Ney 
CONTINUE 
Ne1,Nee < é 
IF(v = A)n1,N2,N2 
m| GOTO Nee 
ne] GOTO Ne 
CONTINUE 
Nei,Nez < ¢ 
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ALGOL->FORTRAN 


go to if 


go to if v >a then Nc, else Nez; 


a:N12 
N20 


go to if v + a then Nc; else Neo; 


a:N12 
N20 


go to if v < a then Nc; else jump 
[N24]; 


a:N12 
N19,N20,N33 


if a, <athen...; 


a,a,:-N12 


ifa, < athen...; 


a,a,:N12 


IF(v — a)ny,n1,ne2 
n1| GO TO Nee 
n2| GOTO Ny 
CONTINUE 


Nco,Neg < ¢ 


IF(v — a)ny,ne,n1 
m| GOTO Na 
ne] GO TO Nee 
CONTINUE 


Ncey,Nceg < € 


IF(v — a)Nn,Nm,Nm 

nn| GOTO Ne 

Mm| GO TO(m,ne2,..., nx),Nvy 
CONTINUE 


Nv, < 10 
Nn, Nm *F N1,N2,...-, Nk 


IF (a, — ayny,n,n 
n1| a ee 
n| CONTINUE 
FIV: 

IF (a,.LT.a) oe 


N34,N39 


IF (a, — a)n,n1,n 
| S ecee 
n| CONTINUE 
FIV: 

IF(a,.LE.a)... 


N34,N39 
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if... then 


if a; =athen... ; 


a,a,:-N12 


if a, >athen... ; 


a,a\ “N12 


if a; >athen... ; 


a,a,:N12 


if a; + athen...; 


a,a,:N12 


ALGOL->FORTRAN 


IF (a, — a)n,m,n 
ny| ster 
n| CONTINUE 
FIV: 

I F(a,.EQ.a) coe 


N34,N39 


I F(a, — a)n,ny,n1 
n1| ees 
n| CONTINUE 
FIV: 

IF(a,.GH.a)... 


N34,N39 


IF(a, — a)n,n,ny 
| scale 
n| CONTINUE 
FIV: 

IF(a.GT.a)... 


N34,N39 


IF(a, — a)ni,n,ny 
n1| ae 
n| CONTINUE 
FIV: 

IF(a,.NE.a) cee 


N34,N39 
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ALGOL->FORTRAN if... then 


ifa, >athenv.:...; IF (a, — a)n,n,n, 
m| CONTINUE 


a,a,:N12 Mel ... 
n| CONTINUE 


The label » must be replaced by 
the integer number nx. 


FIV: 
IF(a,.GT.a)GOTOn 
GO TO n 
n| CONTINUE 


m| CONTINUE 


N34 
Vv =at (if a, + de then a3); IF (a, — Q2)n1,N,N 
| v=—a+das3 
GO TO ng 
Q,01,02,03:N12 n| v=a@ 
no] CONTINUE 
FIV: 
IF(a,.NE.a2)v =a +azg 
IF(.NOT .(a,.NE.a2))v =a 
N34 


if... then 


ALGOL~>FORTRAN 





v: =a + (if a1 + de then a3) + aa; 


IF (a, cae! A2)N1,N2,N1 


m| v=a+ag+aq 
GO TOn 
a,a1,..., a4:N12 nm] v=a+a, 
n| CONTINUE 
FIV: 
IF(a,.NE.azv =a +ag+a% 
IF(.NOT.(a,.N E.a2))—> 
<v=a+a 
N34 
if aj < athen...else... ; IF (a, — a)ny,ne,ne2 
n1| 
a,a;:N12 GO TO n 
n| CONTINUE 
FIV: 
IF(a,.LT.a)... 
N34,N38 


ALGOL->FORTRAN 


if a, < athen...else... ; 


a,a, :N12 


if a, =athen... else. 


a,a;:N12 


if...then.. 


IF (a, — a)n1,71,N2 
| ‘ 


GO TO n 
n| CONTINUE 


FIV: 


1F(a.LE.a)... 


N34,N38 


IF (a, — a)n,no,n 
No| 


GO TO n 
n| ee 
n| CONTINUE 
FIV: 


I F(a,.EQ.a) | | | 


N34,N38 
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. else 


if...then... else ALGOL->FORTRAN 


if a, >athen...else... ; I F(a, — Q)N1,N2,Ne 
Ne| 


GO TOn 
a,ay:-N12 n\| 


n| CONTINUE 


FIV: 
IF (a,.GE.a) bee 
N34,N38 
ifa, >athen...else... ; IF (a, — a)n,n1,n2 
Nel 
a,a;:N12 GO TO n 
n1| 


n| CONTINUE 
FIV: 


IF (a,.GT.a) eae 


N34,N38 
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ALGOL->FORTRAN if...then. 


if a,;:+ athen...else... ; I F(a, — a)ni,ne,n 
| 


a,a,:N12 GO TOn 


Nel 


n| CONTINUE 


FIV: 
IF (a,.NE.a) cee 
N34,N38 
if a, <athen v:...else... ; IF (a, — a)ne,n2,n, 
no| CONTINUE 
nx| 
a,a,:N12 eo 
GO TOn 
n3| 


n| CONTINUE 


The label v must be replaced by 


the integer number 7. 


FIV: 
IF(a,.LE.a) GO TO n 


GO TO n 
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if...tnen... else ALGOL->¥ORTRAN 
m| CONTINUE 
nx| 
n| CONTINUE 
N34 
if a, = a2 then begin if as > a, IF (a, — ae)n,ni,n 
ied os | IF(az — a4)n3,n3,14 
then... else... end; nal 
GO TOn 
ns| bts 
1,-2.5 aa:N12 
n| CONTINUE 
FIV: 
IF (a,.EQ.az) GO TO 
GO TOn 
n\| I F(a3.4'T a4) 6 
n| CONTINUE 
N34,N38 
if a, > ae then begin if a3 < a, IF (a, — de)n1,n2,n2 
ear Nel IF (ag — (4)N3,N4,N4 
then. ..else...endelseifas —ag sl ... 
arar GO TOn 
then... ; na| 
GO TOn 
m| IF (as — ag)n,ns,n 
M,...,ag:N12 n5| 
n| CONTINUE 


ALGOL->FORTRAN if...then... else 





FIV: 
IF (a,.GE.az) GO TO ny 
GO TO n 

m| IF (a3.D7'\.a4)... 
GO TOn 

Ne| IF (a5.HQ.a¢) one 


n| CONTINUE 


N34,N38,N39 
v: =a + (if a: < ae then az else IF (a, — de)ni,ne,ne 
a4); m| v=a+az 
GOTOn 
nm] v=a+a 
a,01,..., @4:N12 n| CONTINUE 
FIV: 
IF (a,.LT.a2)v =a + a3 
IF(.NOT .(a,.LT .a2))—> 
<v=a-+a4 
N34 
v: =a + (if a < ae then az else I F(a, — az)n1,ne,ne 
a4) + as; m| v=a+a3+as5 
GOTOn 
m| v=&@+ a4 +45 
a,dQ1,..., 45:N12 n| CONTINUE 
FIV: 
IF (a,.LT .ae)v =a + ag> 
<-+ a5 
IF(.NOT.(a;.LT .a2))—> 
<v=a4+%+ 4a 
N34 


91 


if...A... then 


ifa <a, Aa, <agthen...; 


@,Q1,42,a3:N12 


ifa <a, A ae < agthen... ; 


A,Q,A2,a3:N12 


ifa <a, A az =as3then...; 


Q,a1,a2,a3:N12 


ifa <a, Aad >agthen...; 


Q,01,a2,a3:N12 


ALGOL->FORTRAN 


IF(a — a)n,n,n 
m| IF (a2 — ag)ne,n,n 
N2| ais 
n| CONTINUE 
FIV: 

IF(a.LT .a,.AN D.a2.> 

< LT .as3) eee 


N34,N39 


I F(a — ay)ny,n,n 
m| IF (az — ag)n2,ne,n 
ne! 8 38 
n| CONTINUE 
FIV: 

IF(a.LT .a,.AN D.az.—> 

< LE.as3) cee 


N34,N39 


I F(a — ay)n,n,n 
m| IF (az — ag)n,ne,n 
Ne| ae 
n| CONTINUE 
FIV: 

IF (a.LT .a,.AN D.a2.> 

<EQ.a3) cee 


N34,N39 


IF(a — a)n,n,n 
m| IF (a2 — ag)n,ne,ne 
Nel 


n| CONTINUE 


ALGOL->FORTRAN if...A... then 


FIV: 
IF (a.LT .a,.AN D.a2.—> 
«GE .a3) cee 
N34,N39 
ifa <a, Aa, + agthen... ; I F(a — a)ni,n,n 
m| IF (az — ag)ne,n,ne2 
Ne| seni 
A, ,42,a3:N12 n| CONTINUE 
FIV: 
IF(a.LT .a,.AN D.az.> 
N34,N39 
if a <a, A az < ag then ... else I F(a — ay)n,n,n 
m| IF (a2 — a3)ne,n,n 
a ne sited 
GO TO nz 


a,41,02,a3:N12 oe 
ns} CONTINUE 


FIV: 
IF (a.LT .a,.AN D.a2.—> 
< LT .a3) cae 
IF(.NOT (a.LT .a;.AN D.> 
<a2.LT .ag))... 
N34,N37 
ifa <a, V ag <agthen... ; I F(a — ay)nj,n2,n2 
no| IF (a2 — a3)m,n,n 
| sles Se 
@,1,02,a3:N12 nl CONTINUE 
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if...V... then 


if a <a, V ag < agthen... ; 


@,Q1,02,03:N12 


if a <a, V ag = azthen...  ; 


Q,Q1 ,A2,a3:N12 


ifa <a, Va, >agthen... ; 


Q,Q1,02,€3:N12 


ALGOL->FORTRAN 
FIV: 
IF(a.LT .a,.0R.a2,.LT.—> 
N34,N39 


I F(a — a)ni,ne,ne 
ne| IF (a2 — a3)m,n1,n 
n1| ge aoe 
n| CONTINUE 
FIV: 

IF(a.LT7 .a;.0R.a2.LE.—> 


N34,N39 


IF (a = 11)N1,N2,Ne 
ne| IF (a2 — ag)n,m,n 
n1| 6 tie 
n| CONTINUE 
FIV: 

IF (a.LT .a,.0R.a2.EQ.—> 

<3)... 


N34,N39 


IF(a — a)n,n,n 
m| IF (a2 — ag)n,n,ne 
n| CONTINUE 
FIV: 

IF (a.LT .a,.AN D.a2.—> 

<GT dag)... 


N34,N39 
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ALGOL—~>FORTRAN 





ifa <a, Va, > agthen... ; 


a,,02,a3:N12 


ifa <a, Vag >agthen... 


A, ,02,03:N 12 


ifa <a, V ade + agthen... 


a,Q ,a2,a3:N 12 


if a <a, V ag < az then... 


Q,01,02,a3:N12 


3 


else 


if...V... then 


IF (a cane 41)N1,N2,N2 


ne| IF (a2 — ag)n,n1,m1 
n,| ca 
n| CONTINUE 
FIV: 
IF (a.LT .a,.0R.a2.GE.—> 
<3) eS 
N34,N39 
[F(a —_ A1)N1,N2,Ne 
Nol IF (ae — a3)N,n,ny4 
m| ... 
n| CONTINUE 
FIV: 
IF (a.LT .a,.0R.a2.GT az)... 
N34,N39 
[F(a — a1)n1,na,ne 
ne] IF (a2 — ag)ni,n,m1 
n1| os 
n| CONTINUE 
FIV: 
IF (a.LT .a,.0R.a2,.NE.—> 
<13) ati 2 
N34,N39 
I F(a — ay)n,n2,n2 
n2| IF (az — a3)ni,n,n 
m| oo... 
GO TO n3 
n 
n3]} CONTINUE 


if...+ ... then 


if 7a +a,then... 


ajay:N 12 


if 7 a + a, then ... 


a,a,:N12 


else... ; 


ALGOL->FORTRAN 


FIV: 
IF (a.LT .a,.0R.a2.LT.—> 
<3) a ee 


IF(.NOT.(a.LT .a,.0R.—> 


<a. LT .a3)) pias 


N34,N37 


I F(a — a)n,n,n 
n1| oe 
n| CONTINUE 
FIV: 

IF(.NOT (a.NE.a))... 


N34,N39 


The logical expression to which 
.NOT. applies must be enclosed in 
parentheses if it contains two or 
more quantities. 


[F(a — a)n,n,n 
n| ee 
GO TO ne 


n| 


no} CONTINUE 
FIV: 
IF(.NOT(a.NE.a,))... 


IF(a.NE.m)... 
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ALGOL->FORTRAN if = then 


oe @ ae ee @ 





N34,N37 


The logical expression to which 
.NOT. applies must be enclosed in 
parentheses if it contains two or 
more quantities. 


ifa <a, = a2. =—a3zthen... ; IF(a —_— Q1)N1,N2,Ne 
ne| IF (a2 — ag)n,na,n 
m| IF (az — ag)n3,n,ng 
Q,Q1,2,a3-N12 mg| ... 
n| CONTINUE 


IF(a.LT.a,) GO TO n 
I F(az.NE.a3) GO TO n 
GO TOn 
| IF (a2.N E.az) GO TO n2 
n| CONTINUE 


if a < a, = de + ag then ... else I F(a — ay)nj,n2,n2 
ne| IF (az — a3)n,ng3,n 
- | IF (a2 = a3)N3,Nn,N3 


e 


1,01 ,02,a3:N12 GO TO 4 


nal CONTINUE 


IF (a.LT.a;) GO TO n 
IF(az.NE.a3) GO TO n 


Ne| pois te 
GO TO ng 
n| IF (a2.NE.a3) GO TO ne 





if...>... then 


ifa <a, > ag + agthen... 


@,Q},a2,a3:N12 


if a <a, > a2 + ag then... 


Q,1,42,a3:N12 


else 


N34 


N34 
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ALGOL->FORTRAN 


IF(a — ay)n1,ne,ne 
IF (ag =e ig)N1,23,71 
IF (ae = Ag)Ng,N,N3 


CONTINUE 


IF(a.LT.a,) GO TO ny 


IF(az.NE.a3) GO TO ny 
GO TO n 

IF(az.NE.a3) GO TO ne 
CONTINUE 


IF(a — a1)N,N2,N2 
IF (az — a3)m1,n3,21 
IF (a — dg)ng,n,ng 


GO TO 


CONTINUE 


IF (a.LT.a,) GO TO ny 


IF (a2.N E.az3) GO TO N1 


GO TO ng 
1 F(az.NE.a3) GO TO ne 


CONTINUE 


ALGOL->FORTRAN 


integer 





integer V1,V2, eee sy Uk; 


No type declaration necessary. 
The variable identifiers must be 
changed into Nw,Nve,..., Nv 
throughout the program. 
R2 
FIV: 

INTEGER 1,v0, ... , VE 


N30 


This statement indicates that the 


integer array matriz; 
see also: 
procedure token(N matrix); 


integer array matriz[ Nc,: Neco]; 


integer array matrix[ —Nc,:Nce]; 


parameter matrix of the subpro- 
gram is an array. 
Omit in translation. 


DIMENSION Nmatriz— 
<—(Nce) 


R7 
Nez < 6 


DIMENSION Nmatrixz— 
«(Nc + Nee + 1) 


R7,N44 
No +Nee +1< 8 


Whenever Nmatrix appears in the 
program, the subscript must be 
increased by Ne, + J. 


example: 


integer array Z[ — 13:47]; 


ZL}: = N/M; 


DIMENSION NZ(61) 


NAL +14) = N/M 
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integer array 


integer array matrizx[ — Nc: —Nce]; 


ALGOL->FORTRAN 


DIMENSION Nmatriz— 
<(Nc}) 


R7 

Nc < B 

Whenever Nmatrix appears in the 
program, one has to multiply the 
subscript by —1. Since a negative 
subscript is not permitted, an 
additional statement must pre- 
cede the subscripted variable. 


example: 


integer array KU RT| —5:—1]); 


KURT(K]: =N = M; 


integer array matriz[1:Nc]; 


integer array matriz[0: Nc}; 


DIMENSION KURT(5) 


KK =—K 
KURT(KK) = N/M 


DIMENSION Nmatriz(Nc) 
R7 
Ne <8 


DIMENSION Nmatriz— 
«(Ne + 1] 


R7,N44 
Ne+1<6 


Whenever Nmatriz appears in the 
program the subscript must be 
increased by +1. 


example: 


integer array 4 AL[0:35]; 


ARL{L}: = L/M +N; 


DIMENSION JARL(36) 


JARL(L +1) =L/M +N 
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ALGOL->FORTRAN 


integer array 





integer array matriz[if a; < a then 
Nc\. else Nee :Nc3] : 


integer array matriz[ Nc: if a > ay 


then Aco else Nes]; 


integer array matrix] ,matrix2, 
matrix3[1:Nc]; 


integer array matriz[ Nc: Nc, 
Neg: Nea}; 


integer array matria[1:Nc,,1: 
N C2] : 


DIMENSION Nmatrixz— 
<(Ncs) 


R7 
Neg < B 


I F(a — ay)n,n,n 
n| DIMENSION Nmatrix— 
<(Ncs) 
GO TO ne 
n| DIMENSION Nmatriz— 
<-(Nee) 
no] CONTINUE 


R7 
Ne2,Nez < 8 


DIMENSION Nmatrnz1—> 


<(Nc),Nmatrix2(Nc),—> 
<Nmatrix3(Nc) 


R7 

Ne < B 
DIMENSION Nmatrix— 
<(Nce,Nc4) 

R7 

Ne2,Neq < B 
DIMENSION Nmatnx— 
<(Nc,,Nco) 


R7 
Nc,Nce < B 
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integer array 


integer array matriz[ Nc: Nce, 
Neg :N C4; Nes iN C6] : 


integer array matrix[1:Nc,,1: 
Neo,1:Nc3]; 


integer array mairiz[ Nc: Neco, 
NVe3: Nea, Le ee Neg-1: Nex] x 


integer array matri2z1,matrix2, 


matriz3[1:Nc,],matrixd4, matrix) 
[1:Neo,1: Nc]; 


integer procedure token; 


see also: 
integer procedure token(..,.., 
token1,..,..); 


ALGOL->FORTRAN 


DIMENSION Nmatriz— 
<-(Nc2,Nc4,Ne¢) 


R7 
Nc2,Nc4,Nee < B 


DIMENSION Nmatriz—> 
<- (Ne, ,NcoNcs) 


R7 
Ne,Nee,Nce3 < B 


Restriction: IBM 1401 and IBM 
1620; permit only a maximum of 
two dimensions for an array. 


For k > 6 no translation possible 
for IBM processors. 


DIMENSION Nmatrixz1 > 
<(Nc,),Nmatrix2(Nc,),—> 
<Nmatrix3(Nc,),Nmatrix4—> 
<(Nco,Nes).Nmatrixd > 
<—(Nce,Ncs3) 


R7 
Ne,Nce2,Neg < B 


This statement indicates that the 
parameter of the subprogram is the 
identifier of a subprogram. Omit 
in translation. 
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ALGOL->FORTRAN integer procedure 


integer procedure token; SUBROUTINE token 
nee COMMON wy,...,%; 


end; 


RETURN 
END 
R5,R6,N21 
FIV: 
The same as above. R5,R6,N21, 
N29 
integer procedure token(..,.., FUNCTION Ntoken—> 
CR 2) eee ae em <(.. 5665 C1,. 655m 
<Ck,..,--) 
end ; a 
RETURN 
END 
N22 
R5,R6 
FIV:R5,N16,N29,N31 
integer procedure token(..,.., FUNCTION Ntoken— 
Ui hod URL eee) <—(. 6506 UL 0 ey 
<Uk, -+5> ) 
COMMON %,..., 2; 
end; 
RETURN 
N22 END 
R5,R6,N21 
FIV: 


R5,N16,N21,N29,N31 
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integer procedure 


integer procedure token(..,.., 


Nmatriz,..,..); 


integer array Nmatriz; 


end: 


integer procedure token(..,.. 


VCE od 4-3.8) 5 


string tect; 


end: 


? 


ALGOL->FORTRAN 


FUNCTION Ntoken— 
<(..,.., Nmatriz,..,..) 
COM MON Viz... , Ui 
DIMENSION Nmatriz(Nc) 


RETURN 
END 


R5,R6,N21 


Nc is the same number as in the 
DIMENSION Nmatriz(Nc) de- 
claration in the main program. 
(Sometimes it is possible to use a 
smaller number for Nc in the 
subprogram.) 

FIV: 

R5,N16,N21,N29,N31 


Nc can be replaced by an arbitrary 
integer variable identifier Nv. 


FUNCTION Ntoken— 
<(..,..,cHtext,..,..) 
COM MON Vi, . +25 UF 


RETU RN 
END 


c is the number of fields occupied 
by tezt. 


R5,R6,N21 
FLV: 
R5,N16,N21,N29,N31 
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ALGOL->FORYTRAN integer procedure 


integer = token(. . : Only some processors permit the 
tokenI,..,..); use of a subprogram identifier as 

an argument. This requires special 
procedure token 1; declarative information on ‘“‘F”’ 


cards, see the appropriate instruc- 
tion manual. 


or FIV: 

end; INTEGER FUNCTION— 
<token(..,..,tokenIl,—> 
<..,..) 

N22 COMMON wv, ..., 0; 
RETURN 
END 


R5,N21,N29,N3]1 
The call for the subprogram must 
be preceded by the declaration 


EXTERNAL tokenl 
integer procedure token(v,v,c,) FUNCTION Ntoken— 
text :(a1,V2,Q2); <(U,V1,C,1,V2,Q2) 


COMMON %,..., 0; 


end; 


RETU RN 
END 
Nee 
R5.R6.N21 


FIV: 
R5,N16,N21,N29,N31 
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integer procedure ALGOL->FORTRAN 


integer procedure token(..,...,..) FUNCTION Ntoken— 
tert:(..,...,..)textl:(..,...,.-); oS ee eee 
os <<_ 


Useeaada taiae Ae Gta) 
COMMON wu, -.., v5 


RETURN 
N22 END 
R5,R6,N21 
FIV: 
R5,N21,N29,N31 
integer procedure token(v,v2,a1) FUNCTION Ntoken—- 
text :(C.a2.v3)text1:(c1,C2); <(V1,V2,01,C,22,3,C1 ,C2) 
COM MON Ui, ..., U5 
end: me 
RETURN 
END 
N22 
R5,R6,N21 
FIV: 
R5,N16,N21,N29,N31 
label Nc; This statement indicates that the 
see also: parameter Nc of the subprogram 
procedure token(..,.., Nc...,..); is a label. 
Omit in translation. 
label v; This statement indicates that the 
see also: parameter v of the subprogram is 
procedure token(..,..,v,..,..); @ label. 


Omit in translation. 
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ANGOL->FORTRAN ln 





ln(a)...; ... ALOG(Aa)... 


Rl 
Exception: Some processors such 
as IBM 1401 and IBM 1620 


require: 
... LOGF (Aa)... 
...in(term)...; ... ALOG(Aterm) ... 
RI 
Aterm :N2 


Exception: Some processors such 
as IBM 1401 and IBM 1620 
require: 

... LOGE (Aterm) ... 


logical operators : FIV: 
Not to be translated directly 


> Not to be translated directly* 

V OR. 

A AND. 

S NOT. 
The logical expression to which 
.NOT. applies must be enclosed 
in parentheses if it contains two 
or more quantities. 

logical values: FIV: 

true TRUE. 

false FALSE, 

multiplication : 

a, X ae ay* a2 


N2 


* For example: Lterm] > Lterm2 can be translated by: Lterm2 .OR.(.NOT.(Lterm!)). 
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numbers 


numbers: 
0 

123 

.1234 
+0.1234 
— 123.456 
+ 1.23195 
9.8719 +12 
2:0—3 

— .012;9—03 
—108 

10 —9 


+10+5 


procedure declaration: 
see: procedure ...; 


procedure ... ; or real procedure 
. ; or Boolean procedure... ; 


procedure tokenI; 
see also: 


procedure token(..,.. , token, 


ae 


procedure token; 


end; 


ALGOL->FORTRAN 


0 

123 

.1234 

+0.1234 

— 123.456 

+1.23E5 

9.87K +12 

2.E—3 

—0.012E —03 

—1.E8 

1.E—5 

+1.E+5 
Range for real numbers: « 
Range for integer numbers: 6 
Range for exponents: 7 


This statement indicates that the 
parameter token1 of the subpro- 
gram is the identifier of a sub- 
program. 

Omit in translation. 


SUBROUTINE token 
COMMON wv, ..., 0; 


RETURN 
END 


R5,R6,N21 
FIV: 
The same as above. R5,N21,N29 
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ALGOL—>FORTRAN procedure 
procedure token(..,..,c1,... SUBROUTINE token— 
Cky--5- “)3 <(. ; me oy - > Ck, ‘ 
end; RETURN 

END 
N22 

R5,R6 

FIV: 

The same as above. R5,N29 
procedure token(..,..,1,... SUBROUTINE token— 
DBs pie dio cg 5 sha Ui es a DE es 

COMMON wv, ..., v; 
end; sue 

RETURN 

END 
N22 

R5,R6,N21 

FIV: 

The same as above. R5,N21,N29 
procedure token(..,.., 2%, SUBROUTINE token— 

ee ae ee res 
ed COMMON YG, ... , Vj 
label wv; Nv =v 
ee ASSIGN n TO Nv 
go to v; 
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procedure 


end; 


N22 


procedure foken(..,..,Ne,..,..); 


label Nc; 
go to Ne; 
end; 


N22 


ALGOL->FORTRAN 


GOTOn 
RETURN 


RETURN 
END 


R5,R6,N21 


Exception: IBM 1401 and IBM 
1620y, in this case: the label v must 
be replaced by an integer number. 
This number must then agree with 
the appropriate number in the 
GO TO statement. 

FIV: 

The same as above. R5,N21,N29 


SUBROUTINE token— 
tA a ge bead Cpe Gee ) 
COMMON w,..., 2; 


GO TO Ne 
RETURN 


RETURN 
END 


R5,R6,N21 
FIV: 
The same as above. R5,N21,N29 
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ALGOL->FORTRAN 


procedure 





procedure foken(..,.., Nmatriz, 


.,.) 


integer array Nmatriz; 
end; 


N22 


procedure token(..,.., ‘text’, 


gaa 
string text; 


end; 


SUBROUTINE token 
<(..,.., Nmatrix,..,..) 
COMMON wu, ..., 0; 
DIMENSION Nmatriz(Nc) 


RETURN 
END 


R5,R6,N21 

Nc is the same number as in the 
DIMENSION Nmatriz(Nc) de- 
claration in the main program. 
Sometimes it is possible to use a 
smaller number for Nc in the 
subprogram. 

FIV: 

The same as above. R5,N21,N29 
Nc can be replaced by an arbitrary 
integer variable identifier Nv. 


SUBROUTINE token— 
(5) ns CIEL, :. 654-4) 
COMMON ww, ..., 0; 


RETU RN 
END 


c is the number of fields occupied 
by tezt. 


R5,R6,N21 

FIV: 

The same as above. R5,R6,N21, 
N29 





lll 


procedure 


procedure token(..,.., token, 


ae 


procedure token1; 


end; 


N22 


procedure token(v,v1,a3)text: (a1,V2, 
a2); 


end; 


N22 


ALGOL->FORTRAN 


Only some processors permit the 
use of subprogram identifiers as an 
argument. This requires special 
declarative information on ‘“F”’ 
cards, see the appropriate instruc- 
tion manual. 
FIV: 
SUBROUTINE token— 
<(..,.., tokenl,..,..) 
COMMON wu,..., 4 © 


RETU RN 
END 


R5,N21,N29 


The call for the subprogram must 
be preceded by the declaration 
EXTERNAL token. 


SUBROUTINE token(v,— 
<-01,43,@1 ,V2,Q2) 
COMMON v,..., 0; 


RETURN 
END 


R5,R6,N21 
FIV: 
The same as above. R5,N21,N29 


ALGOL->FORTRAN procedure 





procedure token(v1,v2,a;)text1:(c, SUBROUTINE token(v,—> 
A2,U3)text2:(c1,C2); <2, 011 ,C,2,V3,C1,C2) 
COMMON V,,..., 0; 
end; re 
RETURN 
END 
N22 
R5,R6,N21 
FIV: 


The same as above. R5,N21,N29 


real v1,V0, ..., Uk; No type declaration necessary. 
The variable identifiers must be 
changed into: 


Av,,Ave,..., Avy; throughout the 
program. 
R2 
FIV: 
RKAL V1,V2, ..--,5 Uk 
N30 


real array mairiz; 
see: 
array matrix; 


real array mairiz[.. .]; 
identical with: 
array mairiz[.. .]; 





113 


real procedure ALGOL->FORTRAN 


real procedure token1; This statement indicates that the 
see also: parameter token1 of the subpro- 
real procedure token(..,.., gram is the identifier of a sub- 
token1,..,..); program. 


Omit in translation. 


real procedure token; SUBROUTINE token 
Bias COMMON %,..., 2; 


end; aa 
RETURN 
END 


R5,R6,N21 
FIV: 
The same as above. R5,N21,N29 


real procedure token(..,.., ¢1, FUNCTION Atoken(. . ,— 
ee) ae eee SS OLS Seas CBs we gic o) 


end; RETURN 
END 
N22 


R5,R6 
FORTRAN IV: 


R5,N28,N29,N32 
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ALGOL->FORTRAN 


real procedure 





real procedure token(..,.. 


oy Uky oe 5 sys 


end; 


N22 


real procedure foken(..,.., 


Amatrizx,..,..); 


array Amatriz; 
end; 


N22 


, v1, FUNCTION Atoken(..,—> 


oe Ow eon gt URS ee 


COM MON Vi, 20 0 y VF 


-) 


RETURN 
END 


R5,R6,N21 
FIV: 


R5,N21,N28,N29,N32 


FUNCTION Atoken(..,—> 
<.., Amatrix,..,..) 
COMMON Ving wee y Vj 
DIMENSION Amatriz(Nc) 


RETURN 
END 


R5,R6,N21 

Nc is the same number as in the 
DIMENSION Amatriz(Nc) de- 
claration in the main program. 
Sometimes it is possible to use a 
smaller number for Nc in the sub- 
program. 


FIV: 


R5,N21,N28,N29,N32 


Nc can be replaced by an arbitrary 
integer variable identifier Nv. 
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real procedure 


real procedure foken(..,.. 


ORE 5 3655-5); 


string text; 


end; 


real procedure token(..,.. 


tokenl,..,..); 


procedure token 1; 
end; 


N22 


> 


9 


ALGOL->FOBTRAN 


FUNCTION Atoken(. . ,> 


<.., CHtext,..,..) 
COMMON %,..., 0; 
RETURN 

END 


c is the number of fields occupied 
by tezt. 


R5,R6,N21 
FIV: 


R5,N21,N29,N32N 28, 


Only some processors permit the 
use of a subprogram identifier as 
an argument. This requires special 
declarative information on “F”’ 
cards, see the appropriate instruc- 
tion manual. 


FIV: 
REAL FUNCTION— 
<token(..,.., tokenl,..,— 
<..) 
COMMON %,..., 0; 
RETURN 
END 


R5,N21,N29,N32 


The call for the subprogram must 
be preceded by the declaration 
EXTERNAL token!I 
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ALGOL->FORTRAN real procedure 


real procedure token(v,v1,c)text: FUNCTION Atoken(v,v;,—> 


(a1,V2,Q2); <C, 1 ,V2,A2) 
COM MON Vi, . +2, Vi 
end; be 
RETURN 
END 
N22 
R5,R6,N21 
FIV: 


R5,N21,N28,N29,N32 


real procedure token(v1,v2,a1) FUNCTION Atoken(v,—> 
text :(C,a2,03)text:(C1,C2); <V2,Q1 ,C,2,03,C1,C2) 
COMMON wu, ..., 2; 
end; ees 
RETURN 
END 
N22 
R5,R6,N21 
FIV: 


R5,N21,N28,N29,N32 


relational operators: The translation of the relational 
operators can be found in connec- 
tion with the if statements. 
FIV: 

LT. 

LE. 

EQ. 

GE. 

GT. 

NE. 


+ VW IAA 
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. sign(a)...; 


.. oign(Aa)...:; 
.gign(Nc)...: 
. sign(term) ...: 


.sn(a)... ; 


. aun(term)... 


FIV: 


ALGOL->FORTRAN 


I F(a)n1,n2,ng 
Na = —1 
GO TOn 
Na = 0 
GOTOn 
Na = 1 
CONTINUE 
... Na... 


... SIGN(Aa)... 
... ISIGN(Na)... 
IF (term)ny,n2,n3 

Na = —1 

GO TOn 

Na = 0 

GOTOn 

Na = 1 
CONTINUE 

jd ING 64% 


. SIN(Aa)... 


R1,N42 


... SIN(Aterm)... 


R1,N42 
Aterm: N2 
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ALGOL->FORTRAN sqrt 
... ogrt(a)... ; ... SQRT(Aa)... 
R1,N42 
... sgrt(term) ...; ... SORT (Aterm) ... 
R1,N42 
Aterm: N2 
statement label: 
n< 


statement label: 
1 ea a 


statement separator: 


> 


Only columns 1 through 5 can 
contain a statement label. Excep- 
tion: IBM 1620, in this case only 
columns 2 through 5 can contain a 
statement label. 


ne< 


If a is an alphabetic character, 
it must be replaced by an integer 
number, this number must then 
agree with the appropriate num- 
ber in the GO TO statement. 
Only columns I through 5 can con- 
tain a statement label. 

Exception: IBM 1620, in this case 
only columns 2 through 5 can con- 
tain a statement label. 


No separator, different statements 
must be on different records. 
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string ALGOL->FORTRAN 


string ¢ezt; This statement indicates that tezt 
see also: is used as a parameter of the sub- 
procedure token(..,.., ‘text?,.., program. 
th Omit in translation. 
subtraction: 
a; — a2 ai — ag 
N2 
switch declaration: 
see: switch jump: =..,...,..; 
switch jump; This statement indicates that the 


parameter jump of the subprogram 
is the identifier of a switch. 
Omit in translation. 


switch jump: = Nei, ..., Nex; 


go to jump| Nv]; GO TO(Nc, ..., Nex),Nv 
NGi8 a Ne| ... 
Neo: er Nco| even 
Nex: eae Nex| a ter 8 
Nv < 10 


No switch declaration necessary. 
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ALGOL->FORTRAN switch 





switch jump: = v1, ..., Uk; 


go to jump[ Nv]; GO TO(n, ..., e),Nv 
Mi. 
V2. ..4. 
ni| 
No| 
J) ee 
me 
Nv < 10 
No switch declaration necessary. 
The statement labels v1, ..., v% 
must be replaced by the statement 
labels m1, ..., me throughout the 
program. 


switch jump: = v1,02,Ne, if 
a + a, then 


Ne, else Neg; oh 
cee GO T'O(n1,n2,Ne,n3),Nv 


ng} IF (a — a)Ne1,Ne2,Ney 
go to jump[Nrv]; 


Ula ees m| ... 


U9 ees No| eed 
ING wit ING)! ec 
Ne: ates Ne\| ale tee 
Nee: ... Neo| ... 

Nv < 10 


No switch declaration necessary. 
The statement labels v;,v2 must be 
replaced by the statement labels 
m,n2 throughout the program. 
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switch ALGOL->FORTRAN 





switch jump: = v,Nc,v1,v2,matrix 


[Nve],N eo; 
GO TO(n,Ne,n,n2,27,—> 
ae <Nce),Nv 
go to yump[Nv]; bac 
VU... 
Ne: . n| 
Uin ts Ne| 
Vo... n1| 
Na: . M2]... 
n7| Nvg = Nmatrix(Nve) 
GO TO(Nci, ee Nex), Nv 
- Ne| ote e 
Nex Sate ‘ 
Nee: ee 
Nex| 
Neel 
Neo, ..., Nex are the elements of 


matria[...]. 


Nv,Nva4 < 10 


No switch declaration necessary. 
The statement labels v,v1,v2. must 
be replaced by the statement 
labels n,21,n2 throughout the pro- 
gram. 


MONEN Chis s of wie 42) oes No logical statements possible in 
token 18 the identifier of a pre- FORTRAN II. 
viously defined Boolean procedure. FIV: 
LOGICAL token 


COMMON %,..., 2; 
6 POMEN ow tgih cca yee! co) icons 
N21 
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ALGOL-—-FORTRAN 


. token(..,...,..)... 
token is the identifier of a pre- 
viously defined integer procedure. 


. token(..,...,..)... 
token is the identifier ae a pre- 
viously defined real procedure. 


. token(..,..,tokenI,..,..) 
token is the identifier of a pre- 
viously defined real procedure or 
integer procedure or Boolean pro- 
cedure. 


token 
COMMON Vi, . 2. 5 UG 
. Ntoken(..,...,..)... 
N21 
FIV: 
INTEGER token 
COMMON wm, ..., 0; 
token(...... ee ee 
N21 
COMMON v,..., 0 
. Atoken(..,...,..)... 
N21 
FIV: 
REAL token 
COMMON Vi, 22 2 5 UF 
. token(.., eh dae cea 
N21 
FIV: 
REAL token,token1 
EXTERNAL token! 
sed . token. .,.., tokenl,— 
N21 


The type declaration REAL token, 
token1 might be changed in agree- 
ment with the type of the sub- 
programs token and token1. 
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token 


token(. . ee 
token is ‘the identifier of a pre- 
viously defined procedure. 


N22 


token(..,..,tokenl,..,..); 
token is the identifier of a pre- 
viously defined procedure. 


token(. . , 
oe). 
token is the identifier of a pre- 
viously defined procedure. 


5 Mea hOL. (x5 iS oes 


N22 
token(. . we COMET 6 6. ok cerds'y 
. .jtext2: (.. es 3 


token is the identifier of a pre- 
viously defined procedure. 


N22 


type declaration: 


see: integer v1, ..., Ux; 
or real wv, ..., Ux; 
or Boolean v1, ..., vz; 


value v1, ..., Vz; 


ALGOL->FORTRAN 


COMMON wy, ..., v% 
CALL token(..,...,..) 


N21 

FIV: 
EXTERNAL tokenl 
COM MON Vi, «++, UF 
CALL token(..,..,—> 
<tokenl,..,..) 
COMMON wy, ..., vj 
CALL token(..,...,..,—> 
Sid pec kglee) 

N21 
COMMON wy, ... v; 
CALL token(..,...,..,—2 
BS Minit ya ES Sosa e, gogtee) 

N21 

FIV: 


. LRUE. ... 


Omit in translation. 
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(integer) variable identifier : 
The variable identifier must be 
listed in an integer declaration. 


variable identifier 


The first character of the variable 
identifier must be J,J,K,L,M, or 
N. 

The maximum length of the vari- 
able identifier is restricted to « 
characters. 


N10 
examples: 
K K 
B NB 
G42 NG42 
E803 NES803 
IBM IBM 
N3 
FIV: 


(real) variable identifier : 
The variable identifier must be 
listed in a real declaration. 


The variable identifier must be 
listed in an INTEGER declara- 
tion. If it is declared under 
INTEGER, then the _ variable 
identifier can begin with an arbi- 
trary alphabetic character. 
N10,N30 


The first character of the variable 
identifier cannot be J,J,AK,L,M, or 
N. 

The maximum length of the vari- 
able identifier is restricted to « 
characters. 


N10 
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variable identifier 


E605 
LANDAU 
Z 

M 

Al2F 


(subscripted) variable identifier: 


Xx] 

T(Z] 

HANS[38} 
BETA[I,N] 
KALLA(8,M,105] 
M301} 

AI[R + 1,L} 
DELTA[3 x M — 5] 


ALGOL->-FORTRAN 


examples: 


N4 

FIV: 

The variable identifier must be 
listed in a REAL declaration. If 
it is declared under RHAL, then 
the variable identifier can begin 
with an arbitrary alphabetic 
character. 


N10,N30 
The same, only the _ subscript 
appears in round brackets. 


The maximum value for a sub- 
script is 8. 


N10 


examples: 


X(1) 

T(NZ) 

HANS(38) 
BETA(I,N) 
KALLA(8,M,105) 
M30(1) 

AlNR +1,L) 
DELTA(3*M — 5) 
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Part 5 


FORTRAN II and IV ALGOL 60 


On the following pages the left column contains FORTRAN II and 
FORTRAN IV statements (the latter are indicated by a preceding FIV :) 
and the right column the appropriate ALGOL 60 statements. The se- 
quence of statements is in alphabetical order, except where this rule is 
broken to place together statements which belong together. Some parts 
of a computer program (such as subprograms or GO TO (...), Nv or 
ASSIGN, etc.) are easier to translate when treated as a group of state- 
ments; such statements are grouped together. Groups with essential 
combinations of statements inside this group are translated first. After 
this, a few examples show how these groups can be combined together. 
The meaning of the notes (abbreviated by N) and restrictions (abbre- 
viated by R) is given in Part 2.2 and 2.3. Statements which cannot 
be translated directly, since they refer to special machine features (such 
as SENSE SWITCH, BACKSPACE, etc.), are explained. Since 
ALGOL 60 does not include input/output statements, the examples are 
given with the input/output statements of the National Elliott 803 (NE 
803). 

Important remark: Occasionally, the length of a FORTRAN state- 
ment exceeds the width of a line. To indicate that the next line should 
appear as a continuation of the previous line, we use two arrows —> <. 


The following example makes this clear: 
The statement 


DIMENSION Amatrix(Nc,),> 
<Amatrix(Nco) 


should actually be written as: 


DIMENSION Amatriz(Nc,),Amatria(Nce) 


FORTRAN>ALGOL 


FORTRAN—>ALGOL ABS 
FIV,FIT: 
... ABS(a)... ... abs(a)...; 
a:N12 Nl 
... ABSF(a)... ... abs(a)...; 
a:N12,N42 Nl 
ACCEPT n,a This statement is used to allow 


a to be read in from the console 
typewriter in accordance with the 
format statement n. 


ACCEPT TAPE n,a This statement causes a to be 
read from the paper tape reader, 
in accordance with the format 
statement 7. 


addition: 

a, + a2 a + ae 
FIV: 

... AINT(Aa)... ...entier(Aa)...; 
FIV,FII: 

... ALOG(a)... ...-Mn(a)...; 
a:N12 
FIV: 

... ALOGI0(a)... ..- 04342945 x In(a)...; 
a:N12 





129 


FORTRAN >ALGOL 





AND 
FIV: 
. AND. ... oe) Sees 

arithmetic operators: 

=r os 

. x 

/ / 

3 ‘i 
assignment statement: 

a, = a2 Qa. = a, 
a2 -N12 
FIV: 
logical assignment statement: 

a.HQ.a1 a=a; 


ASSIGN n TO Nv 


FIV, FII: 
... ATAN(a)... 


a:N12 


... ATAN F(a)... 


a:N12 


FIV: 
BACKSPACE Na 


Omit in translation. 


...arctan(a)... ; 


...arctan(a)...; 


This statement causes the mag- 
netic tape unit Na to backspace 
one record. 
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C (in column 1) tezt 


FIV: 


CALL DUMP(m,... 


CALL EXIT 


CALL LINK token 


’ Uk) 


; comment text ; 

For the computation, this is equi- 
valent to: ; 

Restriction: text may not include 
a semicolon. 


Alternative translation: directly 
after an end statement. 

end fezt 

For the computation, this is equi- 
valent to: end 

Restriction: text may not include 
end or ; or else. 


Alternative translation: 

begin comment fez ; 

For the computation, this is equi- 
valent to: begin 

Restriction: text may not include 
a semicolon. 


This causes the indicated limits 
of the core storage to be dumped 
and execution to be terminated, 
but allows the computer to con- 
tinue on its next program. 


Terminates execution, but allows 
the computer to continue on its 
next program. 


This statement is used to call the 
subprogram token from magnetic 
disk storage and transfer is made 
to the first executable statement. 
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CALL 


FIV: 
CALL PDUMP(w,...,> 


<x) 


FIV: 
CALL SSWTCH(N1,—> 
<Nv2) 

equivalent to: 
IF(SENSE SWITCH — 
<Ne)ni,ne2 


CALL token 


token is the identifier of a SU B- 
ROUTINE without parameters. 


CALL token(..,...,..) 
token is the identifier of a SU B- 
ROUTINE. 


FIV: 
CALL token(..,..,> 
<tokenl,..,..) 
token is the identifier of a SU B- 
ROUTINE. 


COMMON w,...,UK,—> 
<matrix 

or 
COMMON 1]. . ./vz/—> 
<matrix 

FIV: 
COMPLEX 1, ..., Ux,—> 
«token 


FORTRAN—--ALGOL 


This causes the indicated limits 
of core storage to be dumped and 
execution to be continued. 


token; 
The declaration of the appropriate 
procedure must precede this state- 
ment. 


token(..,...,..); 

The declaration of the appropriate 
procedure must precede this state- 
ment. 


token(..,..,tokenl,..,..); 

The declaration of the appropriate 
procedure must precede this state- 
ment. 


Variables and/or array identifiers 
appearing in this statement can be 
shared by a main program and its 
subprograms. 

Omit in translation. 


The declared variables and func- 
tion are complex. 

For writing complex numbers see: 
numbers. 
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FORTRAN->-ALGOL CONTINUE 


CONTINUE This is a dummy statement which 
results in no instructions to the 
program. It is most frequently 
used as the last statement in the 
range of a loop to provide a trans- 
fer address for [F and GO TO 


statements. 
FIV, FIL: 
...COS(a)... ...Cos(a)...; 
a:N12 
...COSF(a)... ...COs(a)... § 
a:N12,N42 
FIV: 
DATA vy, ..., UR(C1,—> Vv}. = C1; 
<..., Cr) 
Uk. = Ck; 
example 1: 
DATA A,B,NON,AR3,> A: = —38.28; 
<Z(—3.25,9.23H5,13,—> B: = 9.2309; 
<2.5,—1.2) NON: = 13; 
AR3: = 2.5; 
Z: = —1.2; 
example 2: 
DATA(C(L),f = 1,4)—> Cll]: = 2.3; 
<—(2.3,3.4,0.5,7.203) C[2]: = 3.4; 
C[3]: = 0.4; 
C[4]: = 7.203; 
FIV: 
DATA 14,V2,V3(C1,C2,C3),—> V1. = C1; V2. = Coe 3° = Cg; 
<U4,..., UK(Ca,..., Ck) V4: = Ca, ... 5 URS = Ck; 
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DATA FORTRAN->ALGOL 
FIV: 
DATA },V2, ..~ 5 Uk(C1,—> VU. = C1; Ve. = C9; 
<t2/Nc/c3,Cne+3,CNe+4)—> V3: = Ua =... 5 = CNne+2: = C3; 
<..., Ck) UNe+3. = CNe+3; -- +3 URS = Ck; 
example: 


DATA B1,B2,B3,B4,—> 
<B5,T,S,U,V,W,Z(5,—> 


<7.01/7/3,2.5,3.735) 
FIV: 

... DATAN(a)... 
N41 
a:N12 
FIV: 

... DCOS(a)... 
N41 
a:N12 


DEFINE DISK... 


FIV: 
... DEXP(a)... 


N41 
a:N12 


DIMENSION Amatrix— 
<(Nc) 


N26 


Bl: = 5; B2: = 7.01; 

B3: = B4: = Bo: =T: = 
S03. 

W: = 2.5; Z: = 3.738; 


...arctan(a)...; 


...CO8S(A)...;3 


This statement specifies to the 
processor the size and quantity 
of data records that will be used 
with a particular program. 


...exp(a)... 3 


array Amatriz[1:Nc]; 
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DIMENSION Nmatrix> _ integer array Nmatriz[1:Nc]; 


<(Nc) 
Ne < B 
N26 
DIMENSION Amatrix—> — array Amatriz[1:Ne1,1:Nce]; 
<-(Nc1,Nce) 
Nc,Nez < 6 
N26 
DIMENSION Nmatrix—’ integer array Nmatriz[1:Ney, 
<—_(Nc,,Nce) 1: Nc] : 
N26 Nc1,Neo < B 
DIMENSION Amatrix—> array Amatriz[1:Nc,,1:Nco, 
<(Ne1,Nc2,Ncs3) 1: Neg}; 
Nc,Nc2,Nc3 < B 
N26 
DIMENSION Nmatrix— _ integer array Nmatriz[1:Ne, 
<(Ne1,Nc2,Ncs) 1:Nc2,1:Ncs]; 
Ne,Nc2,Ne3 < B 
N26 
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DIMENSION Amatriz1— _ array Amatrizl,Amatriz2, 


<(Nc),Amatrix2(Nc),> Amatriz3[1:Nc}; 
<Amatrix3(Nc) 
Ne< 86 
N26 
DIMENSION Nmatrixl— integer array Nmatriz1[1:Nc;], 
<(Nc,),Nmatrix2(Nce),—> Nmatrix2[1:Ncee2],Nmatrix3 
<Nmairix3(Nc3) [1:Ncs3]; 
Nei,Ne2,Ne3 < 8 
N26 
DIMENSION Amatriz1— array Amatriz1[1:Ne,], 
<(Nc,),Nmatrixz(Nce2, > Amatrix2[1:Nce4,1:Nce5,1:Nce]; 
<«Nc3),Amatrix2(Nc4, > integer array Nmatria[1:Nco, 
<Nc5,Nc¢) 1:Ncg3]; 
Ney,..., Neg < 6 
division: 
a,/a ay/a 
a a,-N 12 
exception: 
Na,/Na Na, — Na 
if the arithmetic operator — is 


not available then translate: 
sign(Na,/Na) x entier(abs 
(Na,/Na)) 
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FORTRAN>ALGOL DLOG 


FIV: 
... DLOG(a)... ...n(a)...; 
N41 
a:N12 
FIV: 
... DLOGIO(a)... ..-0.43842945 x In(a)...; 
N41 
a:N12 
DO n Nv = m,m3 for Nv: = m, step J until m3 do 
begin 
n 
end ; 
N18 
DO n Nv = m,mM3,m2 for Nv: =m step me until m3 do 
begin 
n 
end ; 
N18 
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DOUBLE PRECISION FORTRAN-ALGOL 
eee nena ON pe meee ea erent Pore eee 
FIV: 
DOUBLE PRECISION— The declared variables and func- 
<v},..., Vg, token tions are calculated with a pre- 
cision equivalent to twice as many 
significant digits as are obtained 
in ordinary operation. 








FIV: 
... DSIN(a)... ... na)... 
N41 
a:N12 
FIV: 
... DSQRT (a)... ... sgrt(a)...; 
N41 
a:N12 
END end 
FIV: 

END FILE Na This statement causes an end-of- 
file mark to be written on the tape 
of the magnetic tape unit Na. 

FIV: 


& GO i ccte's Met, Se as 


EQUIVALENCE (1,2) V1: = v2; 








EQUI VALENCE (v1,v2,13) VU\. = V2. = V3; 
V1,V2,03:N Zz 
If N2 is violated then translate: 


V1. = V3; 
V2. = V3; 
Se eee 
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EQUIVALENCE (v,,v2),—> 
<—(V3,04,U5) 


FIV, FIT: 
.. HXP(a)... 


a:N12 


.. HXPF(a)... 


a:N12,N42 


exponentiation : 
ay **G 


a,a,:N12 


expression : 

An expression is of integer type 
if all the operands are integer. 
An expression is of real type if 
all the operands are real. 


FIV: 
EXTERNAL tokenI,— 
<token2,token3 


EQUIVALENCE 


Vi. = v2; 
Vg. = U4. = U5; 


V3,04,U5°N2 
If N2 is violated then translate: 


Vi. = Vo; 
Us. = Us, 
V4. = Us; 


.exp(a)...; 


ayta 


An expression is of integer type if 
all the operands are integer, other- 
wise the expression is of real type. 


This statement indicates, that the 
subprogram identifiers tokenI, 
token2,token3 can be used as argu- 
ments in subprograms. 

Omit in translation. 
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FALSE FORTRAN->-ALGOL 





FIV: 

ity ll ADS Bs. oie. ... false... ; 

FETCH (c) a,..., Qk This statement is used to read 
from the disc storage the data 
a,,...,@, from the record specified 
by c. 

FIN D(a) This statement is used to position 
the access arm of a disk storage 
drive over the cylinder which 
contains the record a. 

... PLOAT(Na)... LietedVOs o53 

FIV: 
FORMAT (Dw.d) The number in connection with 


this input/output statement ap- 
pears as a double precision number 
example: with exponent on a field of width 
w with d digits to the right of the 
decimal point. 
n| FORMAT(D17.10) 
PUNCH n,C 


|7.1991567432D + 10 


LL Ss rss ges 
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FORMAT 





n| 


FORM AT(Ew.d) 


FORMAT(E10.3) 
PUNCH n,C 


FORMAT(Fw.d) 


This number in connection with 
this input/output statement ap- 
pears as a real number with 
exponent on a field of width w 
with d digits to the right of the 
decimal point. 


NE 803: 


No translation of a format state- 
ment if this is connected with an 
input statement. 


SCALED(w — 6) 


example: 
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PRINT SCALED(4),C; 


2.997 @ + 10 


The number in connection with 
this input/output statement ap- 
pears as a real number without 
exponent on a field of width w 
with d digits to the right of the 
decimal point. 


NE 808: 


No translation of a format state- 
ment if this is connected with an 
input statement. 


ALIGNED(w — d — 2,4) 


FORMAT 


n| FORMAT(F9.4) 
PUNCH n,C 


[—938.2129| 


FORMAT (Iw) 


n| FORMAT(IS5) 
PUNCH n,K 
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FORTRAN->ALGOTL 


example: 


PRINT ALIGNED(3,4),C; 


| — 938.2129] 


The number in connection with 
this input/output statement ap- 
pears as an integer number in a 
field of width w. 

NE 803: 


No translation of a format state- 
ment if this is connected with an 
input statement. 


DIGITS(w — 1) 


example: 


PRINT DIGITS(4),K; 





FIV: 
FORMAT (Iw) 


example: 


n| FORMAT(L6) 
PUNCH n,C 
[7 


if C has the value .TRUE. 





or 


| OF 


if C has the value .FA LSE. 


This statement in connection with 
an input statement causes a value 
of .TRUE. or .FALSE. to be 
assigned to the corresponding logi- 
cal variable, depending whether 
the first character in the field is a 
T or an F. 

Note: If the field of width w con- 
sists entirely of blanks, a value 
of .FALSE. is assumed. 

This statement in connection with 
an output statement causes a T' or 
an fF inserted in the output 
record for the corresponding logi- 
cal variable with a value of 
TRUE. or .FALSE.. The single 
character is preceded by w — 1 
blank fields. 
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n| 


FORMAT (cX,{ },eX,—> The two numbers in connection 

<{ }) with this input/output statement 
appear on one record, the first 
number is preceded by c blank 
fields and the second number is 
preceded by e blank fields. 


NE 803: 


No translation of a format state- 
ment if it is connected with an 
input statement. 


$Sc?,{ }SAMELINE,v,,$Se?, 
{ },v2; 


example: 


FORMAT(5X,E10.3,> | PRINT $85?,SCALED(A4), 
<-12X,F5.2) SAMELINE,A,$S12?, 
PUNCH n,A,B ALIGNED(1,2),B; 


FORMAT (2(F10.5,—> 
<F10.3),18) 


this is equivalent to: 


n| 


FORMAT(F10.5,E10.3,—> 
«-F10.5,E10.3,18) 


FORMAT({ },...,€ }) 
NE 803: 
example: 


FORMAT (F7.3,10X4 ,—> PRINT ALIGNE D(2,3), 
<F6.3,10X ,H13.4) SAMELINE,A,$S10?, ALIGNED 
PUNCH n,A,B,C (1,3), B,$S10?, SCA LED(7),C; 
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FORTRAN-ALGOL 





FORMAT (cEw.d,eFw.d) 


The c + e numbers in connection 
with this input/output statement 
appear on one record. The format 
of the first group of numbers is 
specified as Hw.d and the second 
group of numbers as F'w.d. 


NE 803: 


No translation of a format state- 
ment if it is connected with an in- 
put statement. 


example: 


FORMAT (3E10.3,2F5.2) 
PUNCH n,A,B,C,D,E 


FORMAT (cEw.d/(eFw.d)) 


FORMAT ({ S///£ }) 


PRINT SCALED(4), 
SAMELINE,A,B,C,ALIGNED 
(1,2),D,E; 


The format of the starting c num- 
bers in connection with this input/ 
output statement is specified as 
Ew.d, the remaining numbers ap- 
pear on new records in groups 
of e numbers on one record and in 
the format Fw.d. 


The first and second number in 
connection with this input/output 
statement are separated by 3 
empty records. 


NE 803: 


No translation of a format state- 
ment if it is connected with an 
input statement. 


144 


FORTRAN--ALGOL 


n| 


FORMAT (E10.3///F5.2) 
PUNCH n,A,B 





FORMAT (cHtezt) 


FORMAT(14H THIS 
<IS A TRIAL) 
PUNCH n 

THIS IS A TRIAL 


FORMAT({ },cHtext) 


FORMAT 


example: 


PRINT SCALED(4),A,$L8?, 
ALIGNED(1,2),B; 





text in connection with this input/ 
output statement appears on a 
field of width c. 


NE 803: 


example: 


PRINT $ THIS IS A TRIAL ?; 


[THIS ISA TRIAL 


The number in connection with 
this input/output statement ap- 
pears as specified under { } fol- 
lowed by text occupying a field of 
width c. 


NE 803: 
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FORMAT FORTRAN-ALGOL 





example: 


n| FORMAT(I3,14H => PRINT DIGITS(2),K,$ = 
«ATOMIC NUMBER) ATOMIC NUMBER?; 


PUNCH n,K [75 = ATOMIC NUMBER| 
\75 = ATOMIC NUMBER) 


FORMAT (cHtexi{ }) text in connection with this input/ 
output statement appears on a 
field of width c followed by a 
number specified by{ }. 





example: 
NE 803: 


n| FORMAT(20H—> PRINT $ SOMMERFELDS 
«SOMMERFELDS+> CONSTANT =?,SAMELINE, 
< CONSTANT = F8.8) ALIGNED(8,3),S; 


PUNCH nS SOMMERFELDS CONSTANT = 137.040 
SOMMERFELDS CONSTANT = 137.040 


FORMAT (Ac,{ },...,— c alphameric characters appear 
<{ }) followed by numbers specified by 


ot eee eee 


example: 
NE 803: 
n| FORMAT(A7,3X,13,—> PRINT $ COBALT?, 


<5 X ,F'6.2) SAMELINE,$S3?, DIGITS(2), 
PUNCH n, COBALT,K,A K,$S85?,ALIGNED(2,2),A; 
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or 


N27 


N27 


FORMAT(IH +,{ }) 


FORMAT(1H,{ }) 


FORMAT(1HO,{ }) 


FORMAT(1H1,{ }) 


FUNCTION Atoken— 
(005 0 0 C1y ee ey Cy 
<..,..) 

COMMON ..,...,.. 
RETURN 

END 

FUNCTION Ntoken— 
Ma sight Ral Clg «wea gCk 
saw) 

COMMON ..,...,.. 
RETURN 

END 


FORMAT 


This format statement indicates 
that the records appearing on the 
line-printer are single spaced. 


This format statement indicates 
that the records appearing on the 
line-printer are double spaced. 


This format statement indicates 
that the records appear on the 
next page of the line-printer. 


real procedure Atoken (..,.., 
Cisse Ch buy cs); 

begin 

end; 

N23 


integer procedure Nioken(..,.., 
615-658 y CR SAS as)3 


begin 
end; 


N23 
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FUNCTION 
FUNCTION Atoken— real procedure Atoken (..,.., 
ae CR a een) PRR a U1> 643 WER 8 a 2)S 
<..) value ..,v1,...,Uk,.-; 
COMMON ..,...,.. Treal..,...,..; 

integer..,...,..; 
a begin 
RETURN ae 
END 

end; 

N27 N23,N24,N25 
FUNCTION Ntoken— integer procedure Nioken (. . 
<(..,-., U1, - 665 Vey 5 Vices g URS ee ieee 
<..,..) value . oy Mises ey Opis S 
COMMON ..,...,.. real..,...,..; 

integer..,...,..; 
oan begin 
RETURN eats 
END 

end; 

N27 N23,N24,N25 
FUNCTION Atoken— real sega Atoken (..,.., 
<(..,.., Nmatriz,..,—> Nmatrix,..,..); 
<..) 

COMMON .. ; integer array Nmatriz; 
DIMENSI ON Nina es sof 
<(Nc) begin 
RETURN end; 
END 
N27 N23 


FORTRAN—>ALGOL 


FUNCTION Ntoken— 
<(..,.., Nmatrix,..,—> 
<., 


COM MON. : 
DIMENSI ON N nis =e 
<-(Nc) 


RETURN 
END 


N27 


FUNCTION Atoken— 
<(..,..,cHtext,..,— 
<..) 


COMMON ..,...,.. 


RETURN 
END 


N27 


FUNCTION Ntoken— 
<(..,.., cHtext,..,—> 


COMMON ..,...,.-. 


RETURN 
END 


N27 


FUNCTION 


integer procedure Nioken (..,.., 
Nmatrix,..,..); 


integer array Nmatriz; 


begin 
end; 


N23 


real procedure Atoken(..,.., 
5 27 ee) i 


string text; 


begin 
end; 


N23 


integer procedure Nioken(..,.., 
‘text’,..,..); 


string feat; 
begin 
end; 


N23 
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FUNCTION 


N27 


N27 


FIV: 


FUNCTION Atoken— 

<-(Av,Av2,Nvs3,C1,C2, > 

<Amatriz) 

COMMON . 

DIMENSI ON Aiuto 
<-(Nc) 


RETU RN 
END 


FUNCTION Ntoken— 
<(Av;,Nv2,Nv3,¢,> 
<Amatriz,Nmatrixl,—> 
<Nmatriz2) 

COMMON . 

DIMENSI ON Amaia 
<(Nc),Nmatriz1(Nci),—> 
<Nmatrix2(Nce) 


RETURN 
END 


ees Jaeger 


GOTOn 


FORTRAN->ALGOL 


real procedure Aioken (Av,Ave, 
N13,¢1,C2,Amatriz); 
value Av,Ave,Nv3; 
real A2,Avs; 
integer Nv3; 

array Amatriz; 
begin 


end; 


N23,N24,N25 


integer procedure Nioken(A2, 
Nve2,Nv3,c,Amatriz,Nmatrial, 
Nmairiz2); 

value Av,N v2,,.N v3; 

real Av; 

integer Nv2,Nv3; 

integer array Nmatnz, 
Nmatrix2; 

array Amatriz; 

begin 


end; 


N23,N24,N25 
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FORTRAN->ALGOL GO TO 





FIV: 
GO TO Nv,(n1,n2,—> go to Nv; 


<—..., 1) 


This statement is preceded by ap- 
propriate ASSIGN declarations. 





GO TO(n,ne, ..., Ne),Nv switch jump: = n1,n2,..., Nk; 


go to jump[Nv]; 


nN + 
ni- 
Ne 
Nee... 
Nk 
Nee «4. 
jump must be defined in a preced- 
ing switch declaration. 
FIV: 
GD sh jee SP aes 
.. LABS(a)... ... entier(abs(a))...; 
a:N12 
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IF FORTRAN-ALGOL 
a 
I F(a) n1,n2,n3 if a = 0 then go to ne else if 

a <0 then go to 7 else go to 3; 








a:N12 
N17,N18 
I F(a) ny,n1,n2 if a < 0 then go to 7, else go to 
n2; 
a:N12 
N17,N18 
I F(a) n1,n2,n1 if a = O then go to vz else go to 
1; 
a:N12 
N17,N18 
I F(a) 141,n2,n2 if a > 0 then go to nz else go to 
1; 
a:N12 
N17,N18 
FIV: 
IF(Lterm)... if Lterm then ... else... ; 
IF(SENSE LIGHT Control is transferred to state- 
<Ne) 1,2 ment n, or ne if the designated 


sense light on the computer con- 
sole is on or off respectively. 
Omit in translation. 
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IF(SENSE SWITCH —> 


<Nc) nN1,N2 


... IFIX(Aa)... 


FIV: 
INTEGER 1,v2,..., Vx 


N30 


FIV: 
INTEGER..,..,—> 
<tokenI,..,.. 


IF 


Control is transferred to the state- 
ment whose label is », or ne if 
sense switch Nc is on or off, 
respectively. The sense switches 
are set manually from the com- 
puter console. 

This statement can be used for 
operator controlled branches.* 


.. entier(Aa)...; 


integer v1,v2, ... , Uk; 


This statement indicates that the 
results of the arithmetic statement 
function tokenI or of the subpro- 
gram tokenI are of integer type. 
Omit in translation, but watch 
that the appropriate arithmetic 
statement function or the sub- 
program is translated by integer 
procedure token. 
If tokenI is the identifier of a 
library function, then token1 must 
be replaced by 

entier(token1) 
throughout the program, see ex- 
ample: 


* This statement could be translated in the following way: 


read Nc\; 
if Nc; = 1 then go to n; else go to nz; 


Ne, = 1 for SENSE SWITCH Ne on and Nc; = 0 for SENSE SWITCH Ne off. 
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INTEGER FUNCTION 


FORTRAN--ALGOL 


ee Ea ase ne Se i ee ee 
example: 


INTEGER ABS 


K — ABS(T)*S 


K A = entier(abs(T')) x S; 





FIV: 
INTEGER— 
«FUNCTION token— 
on OE re ee) ae 
<—. .) 


COMMON ...... - 


RETURN 
END 


N27 


FIV: 
INTEGER—> 
«FUNCTION token— 
<(..,..,U1,...,UK,..5> 
<..) 


COMMON ..,...,.. 


RETURN 
END 


N27 


The same as for FUNCTION 
Ntoken(..,.-5 C1). ++ 5 Cky ++ 5+) 
only 

Ntoken = token. 


N29 


The same as for FUNCTION 
Ntoken(..,..,01,... 
only 

Ntoken = token. 


N24,N25,N29 
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FORTRAN—-ALGOL 


FIV: 
INTEGER— 
«FUNCTION token— 
<(..,.., Nmatriz,..,> 
+. . 
COM MON . 
DIMENSI ON Noein 
<(Nc) 


RETU RN 
END 


N27 


FIV: 
INTEGER— 
<FUNCTION token— 
ae CE oh a 
COMMON .., 


RETURN 
END 


N27 


FIV: 
INTEGER— 
«FUNCTION token— 
<(..,..,tokenl,..,..) 
COMMON ..,...,.. 


INTEGER FUNCTION 


The same as for FUNCTION 
Ntoken(..,.., Nmatrix,..,..) 
only Ntoken = token. 


N29 


integer procedure foken(..,.., 
i 2: ra Fe 


string tezt; 
begin 


end; 
N29 


integer procedure token(..... 
tokenl,..,..); 


real procedure token; 
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INTEGER FUNCTION FORTRAN>ALGOL 








begin 
RETURN oa 
END end; 
N27 N29 
The indicator real procedure must 
be replaced by integer procedure or 
by procedure if token is the identi- 
fier of an integer procedure or of a 
procedure. 
FIV: 
INTEGER— The same as for FUNCTION 
<FUNCTION token— Ntoken (Av1,Nv2,Nv3,c,Amatriz, 
<(Av,,Nve,Nv3,c, > Nmatriz1,Nmatrix2) only 
<Amatriz,Nmatrix1,—> Ntoken = token. 
<Nmatrix2) 
COMMON ..,...,.. 
DIMENSION Amatrizx> N24,N25,N29 
<(Nc), Nmatrix;(Ne),—> 
<Nmatrix2( Nc) 
RETURN 
END 
N27 
FIV: 
...ISIGN(Na)... ...sgn(Na)...; 


LE sate tetas 
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FORTRAN-ALGOL 


... LOG(a)... 


a:N12 


... LOGF(a)... 


a:N12,N42 


FIV: 
LOGICAL 1v1,v2, ..., Ur 


FIV: 
LOGICAL .., token, .. 


FIV: 
LOGICA L— 
<FUNCTION token 
aan Ce Ce) Ne 
we 


COMMON ..,...,.. 


RETURN 
END 


N27 


LOG 


Boolean 2,v2, ... , Uk; 


This statement indicates that 
token1 is a logical statement func- 
tion or that the subprogram token1 
is of logical type. 

Omit in translation, but watch 
that the appropriate arithmetic 
statement function or subprogram 


is translated by Boolean procedure 


token. 

Boolean procedure token(..,.., 
Oise bo GOES hate we) 

begin 

end; 


N29 
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LOGICAL FUNCTION 


FORTAN>ALGOL 





FIV: 


N27 


FIV: 


N27 


LOGICA L— 
<FUNCTION token— 
CiG ens Visas 


COMMON ..,...,.. 


RETURN 
END 


LOGICA L— 
«FUNCTION token— 
<(..,.., Nmatriz,..,—> 
<.. 

COMMON ..,...,.. 
DIMENSION Nmatriz— 
<(Ne) 


RETURN 
END 


> Uk, + «>> 


Boolean procedure token(..,.., 
Og his a UES Oi) s 

value ..,V1,...,Uxk,--3 
real..,...,..; 
integer..,...,..; 
Boolean..,...,..; 


begin 
end; 
N24,N29,N36 


Boolean procedure token(..,.., 
Nmatriz,..,..); 


integer array Nmairiz; 
begin 
end; 


N29 
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LOGICAL FUNCTION 





FORTRAN->-ALGOL 

FIV: 
LOGICA L— 
<FUNCTION token— 
<(..,..,tokenl,..,..) 
COMMON ..,...,.. 
RETURN 
END 

N27 

FIV: 
LOGICA L— 


N27 


«FUNCTION token 
<(Av,,Nv2,Nv3,c,—> 
<—Amatrix,Nmatrixl, > 
<«Nmatrix2,v) 
COMMON ..,...,.. 
DIMENSION — 
<Amatrix(Nc),—> 
<Nmatrix1(Nc),—> 
<Nmatrix2(Nce) 


RETURN 
END 


Boolean procedure token(..,.., 


tokenl,..,..); 

real procedure token1; 
begin 

end; 

N29 


The indicator real procedure must 
be replaced by integer procedure or 
by Boolean procedure or by pro- 
cedure if token is the identifier of 
an integer procedure or of a 
Boolean procedure or of a pro- 
cedure. 


Boolean procedure token(Av,,N v2, 
Nv3,c,Amatrix,Nmatrixl, 
Nmatrix2,v); 

value Av,Nv2,Nv3,0v; 
real Av}; 

integer Nv2,Nv3; 

Boolean v; 

integer array Nmatriz1, 
Nmatriz2; 

array Amatriz; 

begin 


end; 


N24,N29,N36 
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logical operators 


FORTRAN-ALGOL 





logical operators : 





OR. V 
AND. A 
NOT. 7. 
logical values: 
TRUE. true 
FALSE. false 
FIV: 
a Of Gee ee ats 
multiplication : 
a,*as a, X ag 
FIV: 
5 IN aah 2 ae 
FIV: 
pt NOT. wit ee ere: 
numbers: 
0 0 
0. 0 
123 123 
123. 123 
.1234 .1234 
+0.1234 +0.1234 
—- 123.456 — 123.456 
+1.23H5 + 1.23195 
9.87H +12 9.8719 +12 
2.K—3 210—3 
8K4 8104 
—0.012E —03 — 0.01219 —03 
—1.E8 —108 
LE—5 10 —95 
+1.EH+5 +19 +5 


Range for real numbers: « 
Range for integer numbers: 8 
Range for exponents: 7 
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FORTRAN->ALGOL 


OR. 





The following numbers appear 
only in connection with input 
data: 


K2 
E02 
+2 
—2 
+02 


FIV: 
double-precision numbers: 


21.9D0 
0.203D0 
8.0D3 
5.5D — 5 


complex numbers: 


102 
102 
102 
10 —2 
102 


21.9 
0.203 
8.0103 
5.519 — 5 


(7.3,1.76) is equal to 7.3 + 1.761 
(5.1E2, — 3.23) is equal to 510 — 3.231 
(1.1,0.0) is equal to 1.1 + 0.0i 


FIV: 
OR. . 
PAUSE 
or 
PAUSE n 
FIV: 
PRINT n,v 


pied Sy 


This statement halts the computer. 
Pressing the start key causes the 
program to resume execution of 
the program with the next state- 
ment. 

In a PAUSE n statement, the 
number 7 is displayed on the 
console during the halt. 


This statement is used to print 
out v on the line-printer in ac- 
cordance with the format state- 
ment n. 

This format statement n includes 
information to space the printed 
output properly. 
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PUNCH 

PUNCH n 

PUNCH n,v 
N8 

PUNCH n,v1, ..., UK 
N8 


N8 


PUNCH n,(matrix( Nv), —> 
<Nv = Na;,Naz) 


FORTRAN->-ALGOL 


This statement causes information 
to be punched out according to 
the format statement n. 


This statement causes the value of 
the variable identifier v to be 
punched out according to the 
format statement n. 


NE 803: 
PRINT { },v; 


N15 


This statement causes the values 
of the variable identifiers 11, 
..., Ue to be punched out accord- 
ing to the format statement 7. 


NE 803: 
PRINT { },u1, .. «5 Ux; 


N15 


for Nv: = Na, step J until Naz 
do output statement for matrix 
[Nv]; 

Nv,Na,,Nae:N14 


NE 803: 

FOR Nv: = Na, STEP 1 
UNTIL Naz DO PRINT { }, 
matriz( Nv); 


N15 
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N8 


PUNCH n,(matrix(Nv),—> 
<Nv = Na;,Nae2,Nasz) 


PUNCH n,((matrix— 
<(N,Nv2),Nve = 1,—> 
<m2), Nv — I,m) 


PUNCH 


for Nv: = Na, step Naz until Nae 
do output statement for matrix 
[Nv]; 


Nv,Nay Naz,Na3:N14 


NE 803: 

FOR No: = Na, STEP Nag 
UNTIL Naz DO PRINT § }, 
matria( Nv); 


N15 


for Nve: = 1 step J until me do 
for Nv: = 1 step J until m, do 
output statement for matriz[N 1, 
N v2; 


Nv,Nv2,m1,m2:N14 


NE 803: 

FOR Nuvo: = 1 STEP 1 UNTIL 
meg DO 

FOR Ny: =1 STEP 1 UNTIL 
mi DO 

PRINT { },matriz(Nv,Nv2); 


N15 
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PUNCH 


FORTBAN->ALGOL 





N8 


N8 


PUNCH n,((matriz(Nv,—> 
<Nv2),Nve = m,m2),> 
<Nv, = m3,mMa) 


PUNCH n,((matrix—> 
<-(Nv1,Nv2),Nve = Na,,—> 
<Na2,Na3),Nvy, = Nas,—> 
<-Nas,Nag) 


for Nve: = m, step J until me do 
for Nv: = mg step J until ma do 
output statement for matriz[N1, 
N v2] i. 


Nv,Nv2,m1,m2,m3,mM4 -N14 


NE 803: 

FOR Nv: =m STEPIUNTIL 
ms DO 

FOR Nv: =m STEP I1UNTIL 
ma DO 

PRINT { },matrix(Nv,,Nv2); 


N15 


for Nve: = Na step Nag until Nae 
do for Nv: = Nag step Nag until 
Nas do output statement for 
matriz[ Nv;,N v9); 


Nv,Nv2,Na,,..., Nag:N14 


NE 803: 

FOR Nve: = Na, STEP Nag 
UNTIL Naz DO FOR Nx: = 
Nag STEP Nag UNTIL Na; DO 
PRINT },matrix(Nv,Nv2); 


N15 
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PUNCH n,(matriz— 
<(Nve),matrixl(Nv3, > 
<«Nv4),Nve = Na,,Naz,—> 
<Nas) 


N8 


FIV: 
PUNCH TAPE nv 
READ n,matriz 

N8 

example: 
DIMENSION NUT(5,8) 


n| FORMAT({ }) 
READ n,NUT 


PUNCH 


for Nve: = Na, step Naz until Nae 
do output statement for matrix 
[Nv2],matrix1[Nv3,N v4]; 
Nve,Nv3,Nv4,Na,Na2,Na3:N14 


NE 803: 
FOR Nve: = Na, STEP Nag 
UNTIL Na, DO PRINT ({}, 


matrix( Nve),matrixl(Nv3,Nva4); 


N15 


This statement causes v to be 
punched by the paper tape punch 
according to the format statement 
nN. 


This statement causes the values 
of the array identifier matrix to be 
read in according to the format 
statement n. 


NE 803: 


INTEGER ARRAY NUT(1°5, 
1:8); 


FOR N: =1 STEP 1 UNTIL 8 
DO FOR M:=1 STEP 1 
UNTIL 5 DO READ NUT(M, 
N): 


N,M:N14 
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READ 


READ n 


example: 


n| FORMAT (cHtezxt ) 


READ n 

READ n,a 
N8 

READ n,ai,..., a 
N8 
FIV: 


READ(Ne) a, ... , O& 


FORTRAN-ALGOL 


This statement causes information 
to be read in according to the 
format statement n. 


NE 803: 
READ §$ text ?; 


This statement causes the value of 
the identifier a to be read in 
according to the format state- 
ment n. 


NE 803: 
READ a; 


a:N14 


This statement causes the values 
of the identifiers a1,...,a,z to be 
read in according to the format 
statement n. 


NE 803: 
READ a, ..., Gx; 


Ql, «225 arp: N14 


This statement causes aj,..., dQ, 
to be read in in binary form from 
input device Nc. 
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FIV: 


N8 


N8 


N8 


READ(Ne,n) ay, ..., ax 


READ n,(matriz(Nv),> 
<-Nv = Na,,Naz) 


READ n,(matriz(Nv),—> 
<Nv = Na,,Na2,Naz3) 


READ n,((matrix( Nu, —> 
<Nve2),Nve = 1,m2),—> 
«Nv, = 1,m,) 


READ 


This statement causes aj,..., a 
to be read in from input device 
Ne according to format statement 
n. 


for Nv: = Na, step 7 until Nae 
do input statement for matriz 
[Nv]; 


Nv,Na,,Nae:N14 


NE 803: 

FOR Nv: = Na, STEP 1 
UNTIL Nag DO READ matrix 
(Nv); 


for Nv: = Na, step Nag until Nae 
do input statement for matrix 


[Nv], 


Nv,Na,,Naz2,Na3:N14 


NE 803: 

FOR Nv: = Na, STEP Nag 
UNTIL Nag DO READ matrix 
(Nv); 


for Nve: = 1 step J until mez do 
for Nv: = 1 step 7 until ™ do 
input statement for mairiz[N1, 


N v2 | y 


Nv,Nve2,m1,me2:N14 


NE 803: 

FOR Nve: = 1 STEP 1 UNTIL 
mz DO FOR Ny: =1 STEP 1 
UNTIL m DO READ matriz 
(N2,Nv2); 





167 


READ 


READ n,((matrix— 
<(Nw,Nv2),Nve2 = M1,—> 
<mz2),Nv, = m3,mMa) 


N8 
READ n,((matriz— 
<-(Nv,,Nv2),Nve = Nay,> 
<Nae,Nas3),Nv4 = Na4,—> 
<Nas;,Nae¢) 

N8 
READ n,(matriax( Nve2),—> 
<matrix1(Nv3,Nva),—> 
<Nv aa Na,,Naz,Nasz) 

N8 

FIV: 


READINPUT TAPE— 
<-Ne,n,a 


FORTRAN->ALGOL 


for Nve: = m, step J until me do 
for Nv: = msg step J until m, do 
input statement for matriz[Nv, 
N v2] Py 


Nvw,Nve,m,..., ma:N14 


NE 803: 

FOR Noe: =m STEP 1 UNTIL 
UNTIL my DO READ matrix 
(Nv,Nv2); 


for Nv: = Na, step Nas until Nae 
do for Nv: = Nag step Nag until 
Nas do input statement for matrix 
[NV V1 NV V2 | . 


Nw,Nv2,Na,..., Nag:N14 


NE 803: 

FOR Nve: = Na, STEP Na, 
UNTIL Nag DO FOR Nr: = 
Nag STEP Nag UNTIL Nas DO 
READ matriz(Nw,Nv2); 


for Nv2: = Na, step Nag until Nae 
do input statement for matrix 
[Nve],matrial[ Nv3,N va] . 


Nv9,Nv3,Nv4,Na1,Na2,Na3:N14 


NE 803: 

FOR Nve: = Na, STEP Nag 
UNTIL Naz DO READ matrix 
(Nv2),matrixl(Nv3,N va); 


This statement causes the value of 
the identifier a to be read in from 
the magnetic tape unit Nc accord- 
ing to the format statement n. 
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FIV: 


FIV: 


N30 


FIV: 


FIV: 


N27 


READ TAPE Ne,a 


REAL wy, ..., Ux 


REAL..,..,tokenI,— 


<—_., e 9 e e 


REAL FUNCTION— 
<token(..,..,C1,...,;—> 
<Ck, -+5- .) 

COMMON ..,...,.. 


RETURN 
END 


READ TAPE 


This statement causes the value 
of the identifier a to be read in 
from the magnetic tape unit Nc. 


real U1 58 e053 ORG 


This statement indicates that the 
result of the arithmetic statement 
function token1, or of the library 
function tokenI, or of the sub- 
program tokenI are of real type. 
Omit in translation, but watch 
that the appropriate arithmetic 
statement function or the sub- 
program is translated by real 
procedure token. 


The same as for FUNCTION 
Atoken(..,..,C1,....Cky...5- ) 
only Atoken = token. 
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FIV: 
REAL FUNCTION— The same as for FUNCTION 
<token(..,.., U1, +++, Atoken (a5 36's 4 Up 453, UES Sa%) 
<Uz,..,->) only Atoken = token. 
COMMON ..,... eae 
N24,N25,N29 
RETU RN 
END 
N27 
FIV: 
REAL FUNCTION — The same as for FUNCTION 
<token(..,..,> Atoken(..,.., Nmatrix,..,..) 
<Nmatrix,..,..) only Atoken = token. 
COMMON ..,...,.. 
DIMENSION Nmatriz— 
<(Nc) N29 
RETURN 
END 
N27 
FIV: 
REAL FUNCTION— real procedure token(..,.., 
<token(..,..,cHtext,— 2 ee 
<-,.,..) eats 
COMMON......,.. string tect; 
begin 
RETURN ee 
END end; 
N27 N29 


FORTRAN->ALGOL 


REAL FUNCTION 





FIV: 


N27 


FIV: 


N27 


REAL FUNCTION 
<token(..,..,token1,—> 


<..,..) 


COMMON ..,...,.. 


RETURN 
END 


REAL FUNCTION — 

<token(Av;,Av2,—> 

<—Nc3,C1,C2, Amatrix) 

COMMON . 

DIMENSI ON Aviaiver > 
<-(Nc) 


RETURN 
END 


real procedure token(..,.., 


token1,..,..); 

real procedure tokenI; 
begin 

end; 

N23 


The indicator real procedure must 
be replaced by 


integer procedure 
Boolean procedure 
procedure 


if token1 is the identifier of an 


integer procedure 
Boolean procedure 
procedure 


The same as for FUNCTION 
token(Av1,Av2,Nc3,C1,C2,A matrix) 
only Atoken = token. 


N24,N25,N29 
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RECORD FORTRAN--ALGOL 
ea eae a ae ce een ne ee eee ee eee” 
RECORD(a) a, ..., This statement is used to write 
Qi, ..., ay into the disk storage on 

the record a. 





relational operators: 





LY. << 

LE. < 

EQ. = 

GE. > 

GT. = 

NE. + 

RETURN go to a; 
The statement directly following The last end statement of the sub- 
is not EVD. program must be replaced by 


a-:end; 


example: 


FUNCTION KLAUS(T) _ integer procedure K LAUS(T); 


RETURN go to LOS; 

RETURN LOS: end; 

END 

RETURN end; 

END 

FIV: 

REWIND Ne This statement causes an end-of- 
file mark to be written on the tape 
of magnetic tape unit Nc and the 
tape to be rewound. 

SENSE LIGHT Ne If Nc = 0, all sense lights on the 


control console will be turned off, 
otherwise the sense light specified 
by Ne will be turned on. 
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FIV: 


_..SIGN(Aa)... 


FIV, FIT: 


... SIN(a)... 


a:N12 


.. SINF(a)... 


a:N12, N42 


FIV, FII: 


... SQRT(a)... 


a:N12 


... SQRTF(a)... 


a:N12,N42 


statement label (number): 


n| 


statement separator: 


SIGN 


.sign(Aa)...; 
.8in(a)...; 
.8n(a)...; 
.sgqri(a)...; 
.sqrti(a)...; 


No special statement separator, ; 
different statements must be on The statements are separated by a 


different records. 


STOP 
or 


STOP n 


semicolon. 


This statement causes a halt in 
such a way that pressing the start 
key has no effect. The message 
STOP is typed on the console 
typewriter. If STOP nis used, the 
number vn is displayed on the con- 
sole. 
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SUBROUTINE token 


FORTRAN~ALGOL 


procedure token; 





COMMON ..,...,.. begin 
RETURN end; 
END 
N23 
N27 
SUBROUTINE token— procedure token(..,..,0¢1,..., 
£( ox g sais Aa ORS 6 bia). Weds steuncee)s 
COMMON ..,...,.. a 
begin 
RETU PN eee 
END end; 
N27 N23 
SUBROUTINE token— procedure foken(..,..,v1,..., 
Cages Vien URES Vey ews ale 
<..) value ..,v1,...,Uxk,..;$ 
COMMON ..,...,. TOA) sy cccs ea 2 
Integer..,...,..; 
7 begin 
RETURN bac 
END 
end; 
N27 
N23,N24,N25 


eee 
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N27 


SUBROUTINE token 


ltrs we Macs yw) 


COMMON ..,...,.. 


RETURN 
END 


nm 1s a statement label (number). 


N27 


N27 


SUBROUTINE token— 
<(..,.., Nmatriz,..,> 
<..) 

COMMON . : 


DIMENSI ON N aan Cc) 


RETURN 
END 


SUBROUTINE token 
<(,.,.., CHtezt,..,..) 
COMMON..,...,.. 


RETU RN 
END 


procedure token(. . 


label 7; 
begin 


procedure foken(. . , 


.,..)5 


SUBROUTINE 


, Nmatrix, 


integer array Nmairix; 


_— 
end; 


N23 


procedure token(. . , 


.) 


string text; 
begin 


end; 


N23 


¢ b) 
sige HOTU ye ns 





175 





SUBROUTINE FORTRAN-ALGOL 
FIV: 
SUBROUTINE token— procedure token(..,.., tokenl,.., 
<(..,..,token,,..,..) -); 
COMMON ..,...,.. utes 
real procedure token1; 
begin 
RETURN 
END ite 
end; 
N27 
N23 


SUBROUTINE token— 
<«(Av,Av,,Nmatrial,—> 
<Amatrix2,Amatrix3, > 
<term) 
COMMON..,...,.. 
DIMENSION Nmatriz1l—> 
<(Ne} 

DIMENSION Amatrizx2—> 
<(Ne1) 

DIMENSION Amatriz3-—> 
<(Nc2) 


RETURN 


END 


N27 


The indicator real procedure must 
be replaced by integer procedure or 
procedure if tokenI is the identifier 
of an integer procedure or of a 
procedure. 


procedure token(Av,Av;,Nmatrix1, 
Amatrix2,Amatrix3,term); 

value Av,A2; 

real Av, Av}; 

integer array Nmainxl; 

array Amatrix2,Amatriz3; 

begin 


end; 


N23,N24,N25,N26 
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SUBROUTINE 





SUBROUTINE token— 
<(Nv,Av,,Ave,c,c1,term, > 
<n ,N2) 


COMMON ..,...,.. 


RETURN 
END 


N27 


subtraction: 


a, — a2 


FIV: 
...token(..,... 


oo oe 


token is the identifier of an 
INTEGER FUNCTION or of a 
REAL FUNCTION or of a 
LOGICAL FUNCTION or of an 


arithmetic statement function. 


FIV: 


...token(..,.., tokenl,—> 
oe sae 


token is the identifier of a REAL 
FUNCTION or of an INTEGER 
FUNCTION or of a LOGICAL 
FUNCTION. 


<. 


sj, pATORON 6 a5 28 G Sa) eas 


Atoken is the identifier of a 
FUNCTION or of an arithmetic 
statement function. 


procedure token(Nv,Av1,Ave,c,c1, 
term,n,,n2); 

value Nv,Av,,Ave; 

real Av,,Avo; 

integer Nv; 

label N1,Nn2; 

begin 


end; 
N23,N24,N25 


(, — av 


...token(..,... 


The declaration of the appro- 
priate integer procedure or real 
procedure or Boolean procedure 
must precede this statement. 


...token(..,..,tokenl,.....) 


e * 93 


The declaration of the appropriate 
real procedure or integer procedure 
or Boolean procedure must precede 
this statement. 


i AION Ws oe Sh S eGo eS 


The declaration of the appropriate 
real procedure must precede this 
statement. 
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ey Ntoken:s306cygeslewe «padloken.< 5240565) 4eey 


Ntoken is the identifier of a The declaration of the appropriate 
FUNCTION or of an arithmetic integer procedure must precede 
statement function. this statement. 





... AtokenF(......,...)~ ...AtokenF(..,...,..)...3 


<—; oe 


AtokenF is the identifier of an The declaration of the appropriate 


arithmetic statement function. real procedure must precede this 
statement. 
.. NtokenF(......... )> ...NtokenF(..,...,..)...3 


Ntoken is the identifier of an The declaration of the appropriate 
arithmetic statement function. integer procedure must precede 
this statement. 


6 eA CORON (es cic ye 2h MOK E (os oka gs) es 


<—; e e 


XtokenF is the identifier of an The declaration of the appropriate 
arithmetic statement function. integer procedure must precede 
this statement. 


token(......... ) == term real procedure foken(..,...,..); 
value..,...,..; 

|: | re 
integer..,...,..; 

begin 

token: = term; 

end; 


arithmetic statement function. 


N24,N25 

It is a real procedure if token is 

declared in the program as real, 

and an integer procedure if token is 

declared as integer. 

The identifiers of term must be 

declared in the main program. 
a ek ee ee 
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Atoken(..,...,..) = term real procedure Atoken(..,..., 


..); 


arithmetic statement function. 


integer......... j 
begin 

Atoken: = term; 
end; 


N24,N25 
The identifiers of term must be 
declared in the main program. 


Ntoken(..,...,..) =term integer procedure Ntoken(......, 
fae 

value..,...,..; 
real..,...,..; 
integer..,...,..; 

begin 

Ntoken: = term: 

end; 


arithmetic statement function. 


N24,N25 
The identifiers of term must be 
declared in the main program. 


AtokenF(..,...,..) =—> real procedure Atokenf(..,... 
<—term cale 


arithmetic statement function. 


integer..,....... 
begin 

AtokenF: = term; 
end; 


N24,N25 
The identifiers of term must be 
declared in the main program. 


179 


Ntoken FORTRAN->ALGOL 





NtokenF(..,...,..) ==> integer procedure NiokenF(.., 
<term ReaD 


integer......,..; 
begin 
NtokenF: = term; 
end: 


arithmetic statement function. 


N24,N25 
The identifiers of term must be 
declared in the main program. 


XtokenF(......,..) =—> integer procedure XtokenF(. ., 
<term rr 

value..,...,..; 
real..,...,..; 
integer..,...,..; 

begin 

XtokenF: = term: 

end: 


arithmetic statement function. 


N24,N25 
The identifiers of term must be 
declared in the main program. 


FIV: 
Sige ek IV Pe. and oie WUC esc 


TYPE n,a This statement is used to type out 
the value of the variable identifier 
a on the console typewriter ac- 
cording to the format statement n. 
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FIV: 

type declaration: 

See INTEGER..,...,.. 

or REAL..,...,.. 

or LOGICAL ..,...,.. 

(integer) variable identifier: Not more than « characters are 
used to identify a variable identi- 
fier. 

Those variable identifiers must 
be listed in the type declaration 
under integer. 
examples: 

K K 

MG42 MG42 

NE808 NES803 

J1IA2 JIA2 

LANDAU LANDAU 

(real) variable identifiers: Not more than « characters are 
used to identify a variable identi- 
fier. 


Those variable identifiers must 
be listed in the type declaration 


under real. 
examples: 
E605 E605 
AX 121 AX121 
B12 B12 
DDT DDT 
Z5IAAA Z51AAA 
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variable identifier 


FORTRAN-ALGOL 





(subscripted) variable identifier: 


FIV: 


FIV: 


FIV: 


Not more than « characters are 
used to identify a variable iden- 
tifier. 

The subscript appears in square 
brackets. 

It is not necessary to list those 
variable identifiers in a type decla- 
ration. 

The maximum value for a sub- 


script is £. 
N9 
examples: 

X(1) X [7] 
HA NS(38) HANS[88] 
BETA(I,N) BETA[I,N] 
KALLE(8,M,105) KALLE[8,M,105| 
M 30(I) M 30{1) 
Al(K + 1,L) Al{K + 1,L] 


DELTA(3*M — 5) 


WRITE(Nc) a, ..., Oe 


W RITE(Nc,n) ay, ... , 


WRITE OUTPUT— 
«TAPE Ne,n,a 


DELTA[3 x M — 5] 


This statement causes @},..., ax 
to be written, in binary form, on 
the device Ne. 


This statement causes aj,..., @& 
to be written on device Ne in 
accordance with format statement 
nN. 


This statement causes a to be 
written on the magnetic tape unit 
Ne in accordance with format 
statement 7. 
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FIV: 
WRITE TAPE Ne,a This statement causes a to be 
written, in binary form, on the 
magnetic tape unit Nc. 
... AABSF(a)... ...entter(abs(a))... ; 
a:N12 

.. ABXPF(a)... ...enter(exp(a))... ; 
a:N12 

... ALOG F(a)... ...entier(In(a))... ; 
a:N12 

.. ASQRT F(a)... ... entier(sqrt(a))... ; 
a:N12 

= CURLOMEN Sak een snap lONON Srvessnc 3 mats Vice oo 
Xtoken is the identifier of an The declaration of the appropriate 
arithmetic statement function. integer procedure must precede 

this statement. 
Dc ee ee The same as for Ntoken(..,..., 


..) = term only Ntoken = Xtoken. 
arithmetic statement function. 
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Part 6 


The Method of Translating a 
Program 


6.1 ALGOL 60 INTO FORTRAN 


On the following pages the method of translating an ALGOL 60 
program into a FORTRAN program is described. The translation of 
the program itself is explained, together with a comment on how to 
adapt input data. The input/output statements are not treated 
here, they are discussed in Part 3. 

Three different ALGOL 60 (6.1.4) and ALGOL (6.1.5 and 6.1.6) * 
programs and their translations into FORTRAN IT serve as examples 
to illustrate the method of translation.t 

The ALGOL programs are computed on the NE 803B (8K memory, 
paper tape input/output)t and the FORTRAN II programs were run 
on the [BM 16201 (40,000 character memory, punched cards input/ 
output). 


6.1.1 Translation of the Program into FORTRAN I. 


To translate an ALGOL program into a FORTRAN II program, it is 
recommended that the following pattern be followed: 

1. Begin at the type declaration. Change the first letter of the variable 
identifiers declared under integer, so that the first letter becomes J, J, 
K, L, M, or N. (Naturally no change is necessary if the variable 
identifier already begins with J, J, K, L, M, or N.) Change the first 
letter of the variable identifiers declared under real, so that the first 
letter is not J, J, K, L, M, or N. 

2. Replace the changed variable identifiers throughout the entire 
program with the new variable identifiers. 

3. The identifier of a subscripted variable declared under array or 
real array must be changed in such a manner that the first character 
is not J, J, K, L, M, or N. The identifier of a subscripted variable 
declared under integer array must be changed in such a manner that the 
first letter is J, J, K, L, M, or N. 

4. Replace the changed array identifiers throughout the entire pro- 
gram with the new array identifiers. 

* An ALGOL program is an ALGOL 60 program which includes input/output state- 
er This includes data input and output of the computed results. 

+ The program itself contains NE input/output statements, but the ALGOL 60 


reference language symbols are not altered due to the hardware representation of the 
NE. 
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5. Examine the right side of every statement throughout the entire 
program to see whether it contains only identifiers and numbers of the 
same type. Keep in mind that every number with a decimal point or 
written as a power of ten is of real type. If real and integer identifiers 
are mixed, then change the integer identifiers into real identifiers in a 
statement, which precedes the mixed statement. If integer numbers 
appear together with real identifiers, then change the integer numbers 
by inserting a decimal point. 

6. Link the different correlated pairs of begin and end with a line. 
These correlated pairs can be found by linking the innermost begin 
with the next end, then repeat the linking by starting with the now 


innermost begin. 


oe 
—end 
—begin 
—begin 
-begin 
lend 
—end 
—end 


begin and end act similar to opening and closing brackets and so it is 
very useful to see which of these pairs belong together. 

7. If the program contains integer procedure and/or real procedure 
and/or procedure, then translate these subprograms separately. (Un- 
like ALGOL, a FORTRAN subprogram is generally compiled 
separately from the main program.) By comparing the correlated 
begin and end pairs, one finds the end of a subprogram very easily. 
The translation of these subprograms must be carried out in the same 
way as for a new program, i.e. one should start with the same pattern 
as given above. 

8. Watch carefully whether a statement beginning with if is an if... 
then or an if... then. . . else statement. 

9. Now translate statement by statement, beginning with the very 
first statement of the program, with the aid of Part 4. 

10. When you reach input and/or output statements, see Part 3. 

11. Do not hesitate to use CONTINUE statements; it makes the 
program clearer. 

12. After translating the given program statement by statement, one 
may, if one wishes, rearrange the sequence of some records in order to 
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get a clearer program (this rearrangement is not carried out in the 
example of Part 6). The recommended sequence of statements is: 


DIMENSION 

EQUIVALENCE 

COM MON 

FORMAT 

main program (includes comment cards) 
subprograms 


6.7.2 Translation of the Program into FORTRAN IV 
To translate an ALGOL 60 program into a FORTRAN IV program, it 
is recommended that the following pattern be followed: 

1. Although it is optional to use the type declaration, it is highly 
recommended that the type declaration be translated according to Part 
4, 

2. The identifier of a subscripted variable declared under array or 
real array must be changed in such a manner that the first character 
is not J, J, K, L, M, or N. The identifier of a subscripted variable 
declared under integer array must be changed in such a manner that 
the first letter is J, J, K, L, M, or N. 

3. Replace the changed array identifiers throughout the entire pro- 
gram with the new array identifiers. 

4. Examine the right side of every statement throughout the entire 
program to see whether it contains only identifiers and numbers of the 
same type. Keep in mind that every number with a decimal point or 
written as a power of ten is of real type. If real and integer identifiers 
are mixed, then change the integer identifiers (by using the first letter, 
as in FORTRAN IT, for determining the type) into real identifiers in a 
statement, which precedes the mixed statement. If integer numbers 
appear together with real identifiers, then change the integer numbers 
by inserting a decimal point. 

5. Link the different correlated pairs of begin and end with a line. 
These correlated pairs can be found by linking the innermost begin 
with the next end, then repeat the linking by starting with the now 
innermost begin. 

eee 
—end 
begin 
—begin 
-begin 
nd 
—end 
—end 


189 


DICTIONARY FOR COMPUTER LANGUAGES 


begin and end act similar to opening and closing brackets, and so it is 
very useful to see which of these pairs belong together. 

6. If the program contains integer procedure and/or real procedure 
and/or procedure, then translate these subprograms separately. (Un- 
like ALGOL 60 a FORTRAN subprogram is generally compiled 
separately from the main program.) By comparing the correlated 
begin and end pairs, one finds the end of a subprogram very easily. 
The translation of these subprograms must be carried out in the same 
way as for a new program, i.e. one should start with the same pattern 
as given above. 

7. Watch carefully whether a statement beginning with if is an 
if... then or anif... then... else statement. 

8. Now translate statement by statement, beginning with the very 
first statement of the program, with the aid of Part 4. 

9. When you reach input and/or output statements, see Part 3. 

10. Do not hesitate to use CONTINUE statements; it makes the 
program clearer. 

11. After translating the given program, statement by statement, one 
can (optionally) rearrange the sequence of some records in order to get 
a clearer program. (This rearrangement is not carried out in the ex- 
ample of Part 6.) The recommended sequence of statements is: 


REAL 

INTEGER 

LOGICAL 

DIMENSION 

DATA 

HQUIVALENCE 

COMMON 

FORMAT 

main programs (includes comment records) 
subprograms 


6.7.3 The Data 


To translate input data for an ALGOL program into input data for a 
FORTRAN program, one should keep the following points in mind: 

1. If the ALGOL processor follows the FORTRAN input rules (see 
Part 3), the input data may be copied directly. 

2. If the ALGOL processor does not follow the FORTRAN input 
rules, then the numbers or values can be separated by any character 
except 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, ., —, or +. Most likely they are 
separated by using spaces (blanks), by using a new record, or by using 
a new line. In contrast to this, numbers or values in FORTRAN are 
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identified by appropriate format statements, and though it is not 
necessary to separate the different numbers or values on the record, 
certainly a separation is recommended. 

3. The format of every number or value must be determined by the 
main program, i.e. if the variable identifier is of integer type, then a 
FORMAT(Iw) must be chosen, etc. Although certain relaxations in 
input data format are permitted, it is highly recommended that the 
input data be written on the record in exact agreement with the 
appropriate format statement. That means that a number with an 
appropriate # or Ff format statement must have a decimal point. 

4. Not all FORTRAN processors accept a number without a decimal 
point in connection with an exponent. For that reason, it is recom- 
mended that every number in connection with an exponent be 
written with a decimal point, i.e. not 5E22 but 5.E22. 

5. After keeping this recommendation in mind, translate the input 
data with the aid of Part 4 “numbers’’. 


6.1.4 A Very Simple Example 


program 


begin comment LANDAUVERTEILUNG NACH BLUNCK-LEISEGANG KORRIGIER? 
(ZEITSCHRIFT FUER PHYSIK 130, 641-649), 
MIT PRIMAERSPEKTRUM GEFALTET 


HORST THEISSEN DEZ 1963; 


integer N,Z,A,K; 
real RHO,R,QMIT,EPRIM,EMAX, EMIN,H,F2,W,Q: 
array E1[{—10:100]; 
integer array COUNTS[— 10:100]; 
real procedure LANDAU(E,Q); 
real E,Q; 
begin real LAMBDA,BB,R1,R2,R3,R4; 
AR:=0.154 x Z x RHO x R/A; 
LAMBDA: =(Q— QMIT)/AR+1n(E/AR) —1.116; 
BB: =(0.00002 x QMIT x (Zt1.33333))/(AR x AR); 


R1:=BB+3.24; 
R2:=BB+4; 
R3:=BB+9; 
R4:=BB+ 25; 


LANDAU :=(0.3132/sqrt(R1)) x exp(— (LAMBDA x LAMBDA)/R1) 
+(0.116/sqrt(R2)) x exp( — ((LAMBDA — 3)f2)/R2) 
+ (0.057/sqrt(R3)) x exp( —((LAMBDA — 6.5)f2)/R3) 
+ (0.035/sqrt(R4)) x exp(— ((LAMBDA — 11)f2)/R4) 


end LANDAU; 


input statement for: Z,A,RHO,R,QMIT,EPRIM,EMAX,EMIN,H,N; 
for K:=1 step 1 until N do 
input statement for: E1[K],COUNTS[K]; 
E1[0}:=2 x E1[{1]— E1[2]; 
El{(N+1]:=2 x E1{[N]—E1[N—1]; 
for E2:= EMAX step —H until EMIN do 
begin W:=0; 
Q:=E1[1] — E2; 
for K:=1 step 1 until N do 
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begin W:=(W+LANDAU(E1[K),Q) x (E1(K)/E1[1)) x COUNTS[K] 
x ((E1[K — 1] — El[K))/2+ (E1[K] — E1[K + 1))/2)); 
Q:=Q-—(E1{[K)— E1[K+1)) 


output statement for: E2, EPRIM — E2,W/H; 
end FALTUNG; 


ond 


translated program 


CLANDAUVERTEILUNG NACH BLUNCK-LEISEGANG KORRIGIERT 
C(ZEITSCHRIFT FUER PHYSIK — 130,641 — 649), 
CMIT PRIMAERSPEKTRUM GEFALTET. 


CHORST THEISSEN DEZ 1963 


DIMENSION E1(111) 
DIMENSION KOUNTS(111) 
FORMAT(215,7F10.4/I2) 
READ 2,NZ,NA,RHO,R,QMIT,EPRIM,EMAX,EMIN,H, N 
3 FORMAT(F6.3,6X,15) 
READ 3,(E1(K+11),KOUNTS(K +11),K =1,N) 
E1(11)=2.%E1(12) — E1(13) 
E1(N +12) =2.*E1(N +11)— E1(N +10) 
N1=ABS((EMIN — EMA X)/(— H))+0.0000001 + 1. 
DO12 KI=1,NI 
AI=KI-1 
E2=AI*(—H)+EMAX 
W=0.0 
Q=E1(12)—E2 
NE=ABS((N—1)/1)+1 
DO 13 KE=1,NE 
K=(KE—1)*1+1 
COMMON NZ, NA, RHO, R, QMIT 
COUNTS =KOUNTS(K +11) 
W =(W+ ANDAU(E1(K + 11),Q)*(E1(K + 11)/E1(12))*COUNTS 
*((E1(K + 10)— E1(K +11))/2.+(E1(K +11) — E1(K +12))/2.)) 
Q=Q-(E1(K+11)— E1l(K + 12)) 
13 CONTINUE 
D=EPRIM — E2 
F=W/H 
14 FORMAT(F7.3,10X,F6.3,10X,E11.4) 
PUNCH 14,E2,D,F 
12 CONTINUE 
END 
FUNCTION ANDAU(E,Q) 
COMMON NZ,NA,RHO,R,QMIT 
Z=NZ 
A=NA 
AR=0.154*Z*RHO*R/A 
AMBDA =(Q— QMIT)/AR+ ALOG(E/AR)—1.116 
BB =(0.00002* QMIT*(Z**1.33333))/(AR*AR) 
R1=BB+3.24 
R2=BB+4. 
R3=BB+9. 
R4=BB+25. 
ANDAU =(0.3132/8SQRT(R1))*EXP(—(AMBDA*AMBDA)/R1) 
+ (0.116/SQRT(R2))*EXP(—((AMBDA — 3.)**2)/R2) 
+ (0.057/SQRT(R3))*EXP(— ((AMBDA — 6.5)**2)/R3) 
+ (0.035/SQRT(R4))*EXP( —((AMBDA — 11.)**2)/R4) 
RETURN | 
END 


to 


ps 


permed 


on 
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6.7.5 A Simple Example Including Input Data and Computed 
Output Values 


Remarks: This example is written in ALGOL 60 (except for the input/ 
output statements) and translated into FORTRAN II. The input/out- 
put statements are written according to the rules of the NE computer 
(except that read and print appearing in the example are written with 
small letters). In order to run this ALGOL program, it was changed 
due to the hardware representation and restrictions of the NE (this 
modified program is not given here) and fed, together with the data 
given, into the NE 803B. The output values of this computation are 
presented. 

The translated program, including the input data, was computed on 
a IBM 16201. The output values of this computation are also presented. 

In order to compare the output values from the two programs, one 
must know that the numbers of the NE output are rounded and that 
the numbers of the [BM output are truncated; thus, a difference of +1 
in the last digit is due to this procedure. 


program 


begin comment LANDAUVERTEILUNG NACH BLUNCK-LEISEGANG KORRIGIERT 
(ZEITSCHRIFT FUER PHYSIK 130,641 — 649), 
MIT PRIMAERSPEKTRUM GEFALTET. 


HORST THEISSEN DEZ 1963; 


integer N,Z,A,K; 

real RHO,R,QMIT,EPRIM, EMAX,EMIN,H,E2,W,Q; 

array E1{—10:100}; 

integer array COUNTS[— 10:100]; 

real procedure LANDAU(E,Q); 

real E,Q; 

begin real LAMBDA,AR,BB,R1,R2,R3,R4; 
AR:=0.154 x Z x RHO x R/A; 
LAMBDA: =(Q— QMIT)/AR+1n(E/AR) — 1.116; 
BB: =(0.00002 x QMIT x (Z41.33333))/(AR x AR); 
R1:=BB+3.24; 


R2:=BB+4; 
R3:=BB+9; 
R4:=BB+25; 


LANDAU: =(0.3182/sqrt(R1)) x exp(— (LAMBDA x LAMBDA)/R1) 
+ (0.116/sqrt(R2)) x exp(—((LAMBDA — 3)¢2)/R2) 
+ (0.057/sqrt(R3)) x exp( —((LAMBDA — 6.5)f2)/R3) 
+ (0.035/sqrt(R4)) x exp( — ((LAMBDA — 11)f2)/R4) 


read Z,A,RHO,R,QMIT,EPRIM,EMAX,EMIN,H,N; 
for K:=1 step 1 until N do read E1(K],COUNTS[K]; 
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print $$L10? 
LANDAUVERTEILUNG EINSCHL. BLUNCK-LEISEGANG-KORREKTUR, 
MIT DEM PRIMAERSPEKTRUM GEFALTET $L3??, 
Z,$ = ORDNUNGSZAHL DES TARGETKERNES?, 
A,$ = ATOMGEWICHT DES TARGETKERNES?, 
RHO,$=DICHTE DES TARGETS (GR/CM-— 8)?, 
R,$= DICKE DES TARGETS (CM)? 
EPRIM,$= ENERGIE DER EINF ELEKTRONEN (MEV)?, 
QMIT,$= MITTLERER ENERGIEVERLUST (MEV)$L38? 
ENERGIE ENERGIEVERLUST LANDAU- 
(MEV) (MEV) VERTEILUNG $L??; 


E1(0):=2 x El{1]— E1l[2}; 
E1l{N +1]:=2 x E1[N]— E1[N—1]; 
for E2:—=EMAX step —H until EMIN do 
begin W:=0; 
Q:=El1[{1]—E2; 
for K:=1 step 1 until N do 
begin W:—=W+LANDAU(E1[K],Q) x (E1[K]/E1[1]) x COUNTS[K] 
x ((E1[K — 1] — E1[K)])/2+ (E1[K] — E1[K + 1))/2); 
Q:=Q-(E1[{K]— E1[{K+1]) 


print ALIGNED(2,3), SAMELINE, E2,$$S10??, EPRIM — E2,$$S10?? 
SCALED(5),W/H; 


end 

end 
input data 

6 
12 
2.0665 
0.1545 
0.599 
53.382 
53.2 
52.3 
0.05 
23 
53.509 227 
53.490 474 
53.470 1174 
53.451 1931 
53.431 3985 
53.412 7084 
53.393 7725 
53.373 9309 
53.354 10131 
53,334 10084 
53.315 9388 
53.296 8199 
53.276 6537 
53.257 4836 
53.237 3463 
53.218 2452 
53.198 1947 
53.179 1389 
53.140 1032 
53.101 732 
53.063 636 
52.985 417 
52.907 399 
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result output 


LANDAUVERTEILUNG EINSCHL. BLUNCK-LEISEGANG-KORREKTUR 
MIT DEM PRIMAERSPEKTRUM GEFALTET 


6 = ORDNUNGSZAHL DES TARGETKERNES 

12 = ATOMGEWICHT DES TARGETKERNES 
2.0665000= DICHTE DES TARGETS (GR/CM — 8) 
-15450000= DICKE DES TARGETS (CM) 
53.382000= ENERGIE DER EINF ELEKTRONEN (MEV) 
-59900000= MITTLERER ENERGIEVERLUST (MEV) 


ENERGIE ENERGIEVERLUST LANDAU- 
(MEV) (MEV) VERTEILUNG 
58.200 0.182 6.4727 @ — 03 
53.150 0.232 1.2136 @ — 00 
53.100 0.282 3.4180@+01 
53.050 0.332 2.7533 @ + 02 
53.000 0.382 1.1167@ +03 
52.950 0.432 2.3822 @ + 03 
52.900 0.482 3.1976@ + 03 
52.850 0.532 3.0564 @ + 03 
52.800 0.582 2.2981 @ + 03 
52.750 0.632 1.5741@ +03 
52.700 0.682 1.0749 @ +03 
52.650 0.732 7.8431 @ + 02 
52.600 0.782 5.4104 @ + 02 
52.550 0.832 4.1008 @ + 02 
52.500 0.882 2.9780 @ + 02 
52.450 0.932 2.2588 @ + 02 
52.400 0.982 1.1222@ +02 
52.350 1.032 6.0251@ +01 
52.300 1.082 3.2770@+ 01 


translated program 


CLANDAUVERTEILUNG NACH BLUNCK-LEISEGANG KORRIGIERT 
C(ZEITSCHRIFT FUER PHYSIK 130,641 — 649), 

CMIT PRIMAERSPEKTRUM GEFALTET. 

CHORST THEISSEN DEZ 1963 


DIMENSION Ei(111) 
DIMENSION KOUNTS(111) 
2 FORMAT(215,6F10.4/F10.4,12) 
READ 2,NZ,NA,RHO,R,QMIT,EPRIM,EMAX,EMIN,H, N 
3 FORMAT(F6.3,6X,15) 
READ 3,(E1(K +11), KOUNTS(K +11),K =1,N) 
1 FORMAT(//////////53H LANDAUVERTEILUNG EINSCHL. BLUNCK-LEIS EGANG-KO 
1 RREKTUR/33H MIT DEM PRIMAERSPEKTRUM GEFALTET///) 


PUNCH 1 

4 FORMAT(I9,32H = ORDNUNGSZAHL DES TARGETKERNES) 
PUNCH 4,NZ 

5 FORMAT(I9,31H = ATOMGEWICHT DES TARGETKERNES) 
PUNCH 5,NA 


6 FORMAT(F10.7,30H = DICHTE DES TARGETS (GR/CM — 3)) 
PUNCH 6,RHO 

7 FORMAT(F10.8,24H= DICKE DES TARGETS (CM)) 
PUNCH 7,R 

8 FORMAT(F10.6,335H= ENERGIE DER EINF ELEKTRONEN (MEV)) 
PUNCH 8,EPRIM 

9 FORMAT(F10.8,32H= MITTLERER ENERGIEVERLUST (MEV)///) 
PUNCH 9,QMIT 
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10 FORMAT(42HENERGIE 


11 


13 


14 


woh = 
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ENERGIEVERLUST 
PUNCH 10 

FORMAT(45H (MEV) (MEV) 
PUNCH 11 

E1(11) = 2.%E1(12) — E1(13) 

E1(N + 12) =2.*E1(N + 11)— E1(N + 10) 

NI= ABSF((EMIN — EMAX)/(— H))+0.0000001 + 1. 
DO12 KI=1,NI 

AI=KI-1 

22= AI*(-H)+EMAX 

W =0.0 

Q = El(12) -- E2 

NE=ABSF((N—1)/1)4+1 

DO 13 KE=1,NE 

K=(KE-1)*1+1 

COMMON NZ, NA, RHO, R, QMIT 
COUNTS = KOUNTS(K +11) 

W =(W+ANDAU(E1(K +11),Q)*(E1(K 4+ 11)/E1(12))*COUNTS 
*((E1(K +10)— El(K 4+ 11))/2.+ (E1(K +11) — El(K + 12))/2.)) 
Q=Q—-—(E1(K + 11)— El(K + 12)) 

CONTINUE 

D=EPRIM-— E2 

F=W/H 

FORMAT(F7.3,10X,F7.3,10X,E11.4) 

PUNCH 14,E2,D,F 

CONTINUE 

END 


FUNCTION ANDAU(E,Q) 

COMMON NZ,NA,RHO,R,QMIT 

ZL=NZ 

A=NA 

AR =0.154*Z*RHO*R/A 

AMBDA =(Q— QMIT)/AR+ LOGF(E/AR) — 1.116 
BB = (0.00002* QMIT *(Z**1.33333))/(AR*AR) 
R1=BB+3.24 

R2=BB+4. 

R3= BB+9. 

R4= BB+ 25. 


ANDAU =(0.3132/SQRTF(R1))* EXPF(—(AMBDA*AMBDA)/R1) 


+ (0.116/SQRTF(R2))*EXPF(— ((AMBDA — 3.)**2)/R2) 
+ (0.057/SQRTF(R3))* EX PF(— ((AMBDA — 6.5)**2)/R3) 
+ (0.035/SQRTF(R4))*EXPF(— ((AMBDA — 11.)**2)/R4) 
RETURN 

END 
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2.0665 


227 
474 
1174 
1931 
3985 
7084 
7725 
9309 
10131 
10084 
9388 
8199 
6537 
4836 
3463 
2452 
1947 
1389 
1032 
732 
636 
417 
399 


1545 


.599 


53.382 


53.2 


52.3 


LANDAUVERTEILUNG EINSCHL. BLUNCK-LEISEGANG-KORREKTUR 
MIT DEM PRIMAERSPEKTRUM GEFALTET 


6 = 

12 = 
2.0665000 = 
-15450000 = 
53.382000 = 
-59900000 = 


ENERGIE 
(MEV) 
53.200 
53.150 
53.100 
53.050 
53.000 
52.950 
52.900 
52.850 
52.800 
52.750 
52.700 
52.650 
52.600 
52.550 
52.500 
52.450 
52.400 
52.350 
52.300 


ENERGIEVERLUST 


(MEV) 
.182 
232 
282 
332 
.382 
432 
482 
532 
.082 
.632 
.682 
732 
782 
.832 
882 
.932 
.982 

1.032 
1.082 


ORDNUNGSZAHL DES TARGETKERNES 
ATOMGEWICHT DES TARGETKERNES 
DICHTE DES TARGETS (GR/CM — 3) 
DICKE DES TARGETS (CM) 
ENERGIE DER EINF ELEKTRONEN (MEV) 
MITTLERER ENERGIEVERLUST (MEV) 


LANDAU- 


VERTEILUNG 


6.4726E — 03 
1.2137E — 00 
3.4181E+01 
2.7533E + 02 
1.1167E +03 
2.3822E + 03 
3.1977E + 03 
3.0564E + 03 
2.2982E + 03 
1.5740E + 03 
1.0749E + 03 
7.8430E + 02 
5.4104E + 02 
4.1008E + 02 
2.9781E + 02 
2.2588E + 02 
1.1222E + 02 
6.0252E + 01 
3.2770E + 01 
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input data 


output values 
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6.1.6 A More Complex Example Including Input Data and 
Computed Output Values 
Remarks: This example is written in ALGOL 60 (except for the input/ 
output statements) and translated into FORTRAN IT. 

The input/output statements are written according to the rules of 
the NE computer (except that read and print appearing in the example 
are written with small letters). In order to run this ALGOL program, 
it was changed due to the hardware representation and restrictions of 
the NE (this modified program is not given here) and fed, together 
with the data given, into the NE 803B. The output values of this 
computation are presented. 

The translated program, including the input data, was computed on 
a IBM 1620;;. The output values of this computation are also presented. 

In order to compare the output values from the two programs, one 
must know that the numbers of the NE output are rounded and that 
the numbers of the IBM output are truncated; thus a difference of +1 
in the last digit is due to this procedure. 


program 
begin LANDAUVERTEILUNG; 
integer Z,A,K,KMAN,L,LMAX; 
real QMIT,AR,BQU,TS,ENULL,T,R2,R1,R3,R4,N E, 
AA,BB,X1,X,C,ALPHA,MM,LE,QWRS,U,Q1, 
E,W,TY,GAMA,BETA,LAMBDA,CNORM,CMAX; 
array E1,E2,C1,C2,Q,LA[ — 2:27]; 


real proceedure GAMMA(X); 


real X; 
begin real XSTERN,G, X2,X3,X4; 
XSTERN:=X; 


if X < 10 then 
begin if X < 0 then 
begin if X —entier(X)=0 then 
begin print SGAMMA(?,SAMELINE,X, 
$)= UNENDLICH?; 
go to M 
end 
else XSTERN :=10-+ (entier(X) -- X) 
end; 
ifX > O then XSTERN :=104-(X—entier(X)) 
end; 
X2:= XSTERN x XSTERN; 
X3:= X2 x XSTERN; 
X4:=X3 x XSTERN; 
G:= 2.506628 x exp(— XSTERN x (XSTERN -- 0.5) x In(XSTERN)) 
X (1+ 0.08333333/XSTERN + 0.0034722222/X2 — 0.00268132716/ 
X3— 0.000229472094/X4); 
if X < 10 then 
begin real N,F,FO; 
N:=1; 
FO:=9+(if X < 0 then entier(X)— X 
else X—entier(X)); 
for F:=F0,F—1 while F > entier(X) do 
N:=NxF; 
G:=G/N 


198 


METHOD OF TRANSLATING A PROGRAM 


end; 
GAMMA:=G; 
M: end GAMMA; 


real procedure PHI(A,C,X); 
value A,C,X; 
real A,C,X; 
begin real P,Q; 
integer J; 
Q:=P:=1; 
for J:=1,J+1 while abs(P) > ,,.—7 do 
begin P:=(Px(A+J) > X)/((C+J3) x (14+J)); 
Q:=Q+P 
end; 
PHI:=Q 
end PHI; 


real procedure PARCYLE(NY,Z); 
value NY,Z; 
real NY,Z; 
begin if NY = 0O then PARCYLF:=exp(-..5xZxZ); 
if NY + 0A abs(Z) > 3 then 
begin integer J; 
real Q,P,MIN; 
if Z > O then 
begin Q:= 1; 
:=-—1; 
MIN:=10; 
for J:= 0,J+1 while abs(P) = MIN A abs(P) > 1.—5 do 
begin P:= —Px(NY-—2xJ)x(NY—2xJ—-—1)/((J+1)x2xZxZ); 


Q:=Q+P; 
if abs(P) < MIN then MIN:=abs(P) 
end; 
PARCYLF:=exp(— 0.5 x Z x Z) x (Z4NY) * (Q— P) 
end; 
if Z < 0 then 
begin Z:= —Z; 
P:=1; 
Q:=1; 
MIN :=10; 


for J:=0,J +1 while abs(P) = MIN A abs(P) > 1.—5 do 
begin P:=Px(NY+2xJ+1)x(NY+2xJ+2)((2xZxZx(J+1)); 


Q:=P+Q; 
if abs(P) < MIN then MIN:=abs(P) 
end; 
PARCYLF: = 2.506628 «x (Z*(— NY —1)) x (Q— P)/GAMMA(—NY) 
end 


end; 
if NY + 0A abs(Z) 3 then 
begin real S1,S2; 
if (0.5—0.5 x NY)—entier(0.5- 05<NY) = 0 


then S1:=0 

else S1:=1.772454 x PHI(— 0.5 x NY,0.5,0.5 x Z x Z)/GAMMA(0.5 
—0.5x NY); 

if (—0.5 x NY)—entier(—0.5x NY) = 0 

then S2:=0 


else S2:= 3.544908 x Z x PHI(0.5 -- 0.5 x NY,1.5,0.5 x Z x Z) 
(1.414213 x GAMMA(— 0.5 x NY)); 
PARCYLF: = 21(0.5 x NY) x exp(— 0.5 x Z x Z) x (S1 — S82) 
end 
end PARCYLF; 


real procedure LANDAU(E,Q]}); 
real E,Q1; 
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begin real LAMBDA,X1,X2,X3,X4,F,W; 

LAMBDA: =(QI— QWRS)/AR — .05; 

X1:=1.4142 x LAMBDA/sqrt(R1); 

X2: = 1.4142 x (LAMBDA — 8)/sqrt(R2): 

X3:=1.4142 x (LAMBDA — 6.5)/sqrt(R3); 

X4:=1.4142 x (LAMBDA — 11)/sqrt(R4); 

F:=(.5f(.5 x TS)) x (.3182 x PARCYLF( — TS, — X1)/sqrt(R1fN E) + .116 x 
PARCYLF( — TS, — X2)/sqrt(R2tNE)+ .057 x PARCYLF( — TS, —.X3)/ 
sqrt(R3tNE)+ .035 x PARCYLF( — TS, — X4)/sqrt(R4{NE)); 

W :=((AR/ENULL){TS) x F; 

LANDAU: =W 

end LANDAU; 


PUSCHKIN: 

read Z,A,T,ENULL,AA,BB,X1,C,ALPHA,MM,CNORM,VU ; 
for K:=1 step 1 until 50 do 
begin read El[{K)}; 

if E1{K] = 4711 then begin KMAX:=K-1; 

go to VAT69 
end; 

E1[K]:=U x El[K]; 

read C1{K] 
end; 


VAT69: 
GAMA:=ENULL;,0.511: 
BETA: =saqrt(1 — 1;GAMA?/2); 
AR: =.1537 x Z x T/(A x BETA »: BETA); 
TS: =(T x .0013965333 x Z x (Z+ 1) x 1n(183/(Zt .3333)))/ 
(A x (1+.12 « (Z/82) x (Z/82))); 
LE: =In(sqrt(GAMA x GAMA — 1)); 
X : = LE/2.3026; 
W : = 1.022 x sqrt(GAMA x GAMA — 1) x BETA/21; 
TY:=(TS « TS)/(2 x W x W); 
AA:=AA x T x (14+ TY/TS)/(BETA x BETA); 
QMIT:= AA x (BB+ .434+ 2 x LE+1]In(ENULL)—1 
—(if X < X1 then 4.606 x X+C+ALPHA x ((X1 — X){MM) 
else 4.606 x X+C)); 
BQU : = (.00002 «x QMIT x (Z41.3333))/(AR x AR); 
QWRS:=AA «(BB+ 1.064 2 x LE+In(AA)—1)—(if X < X1 then 
4.606 x X+C+ ALPHA x ((X1— X){MM) else 4.606 x X+C)x AA 
+ .05 x AR x BQU+2x ARx TS; 
R1:=BQU+3.24; 


R2:=BQU+4; 
R3:= BQU+9; 
R4:= BQU + 25; 
NE:=1-TS: 


print $$LIio? 

LANDAUVERTEILUNG EINSCHL BLUNCK-LEISEGANG- 
UND BREMSSTRAHLUNGSKORREKTUR, MIT DEM 
PRIMAERSPEKTRUM GEFALTET $L3?? 


Z,$ = ORDUNGSZAHL Z?, 

A,$ = ATOMGEWICHT(A)?, 

T,8= SCHICHTDICKE (G/CM**2)?, 
$$L??, 

AA/T,$= KONSTANTE GROSS A?, 
BB,§= KONSTANTE GROSS B?, 
X1,8= KONSTANTE X1?, 

C,8= KONSTANTE C?, | 
ALPHA,$8= KONSTANTE KLEIN <A?, 
MM,$= KONSTANTE KLEIN M?, 
$$L??, 
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ENULL,$§= ENERGIE DER EINF ELEKTRONEN (MEV)?, 
QMIT,$= MITTLERER ENERGIEVERLUST (MEV)?, 

QWRS,§= WAHRSCHEINLICHSTER ENERGIEVERLUST (MEV)?. 
AR,$= A*R (MEV)?, 

TS,$= SCHICHTDICKE/STRAHLUNGSLAENGE?, 

BQU,$= B**2?, 


$$L2? 
FREQUENZ ENERGIE E-VERLUST LAMBDA VERTEILUNG 
( MHZ) (MEV) (MEV) (1) (COUNTS) 
$L??; 

L:=1; 

CMAX:=0; 


E1(0]:=2 x El(1]— E1[2]; 
E1[/KMAX+1]:=2 x E1[KMAX]— E1[KMAX-— 1]; 
for LAMBDA:=—5 step 1 until —1.9,—1.5 step 
.5 until 3.1,4,5,6 step 2 until 16 do 
begin E2[L]:= ENULL-- QWRS — AR x (LAMBDA+.05); 
C2[L}:=90; 
Q(L): = E1[1) — E2(L); 
for K:=1 step 1 until KMAX do 
begin C2[L]:=C2[L]+ LANDAU(E1[K],Q[L]) x C1[K] 
((E1[K — 1]— E1[K))/2 
+(E1[{K]— E1[K+1)])/2); 
Q([L]: = Q[L] — (E1[K] — E1(K + 1)) 
end; 
C2[L]:=C2[L]/AR; 
LA[L]):= LAMBDA; 
if C2[L}] > CMAX then CMAX:=C2(L]; 
L:=L+1 
end; 
LMAX:=L-1; 
for L:=1 step 1 until LMAX do 
print SAMELINE,$8?,ALIGNED(2,3), E2[L}/U,PREFIX($$S5??),E2[L], 
ENULL-— E2([L], LA[L], DIGITS(4),entier(C2[L] x CNORM + .5) 


end LANDAUVERTEILUNG; 


input data 
6 
12 
4.98 
54.130 
0.0768 
18.25 
2 
— 3.22 
531 
2.63 
5824 
3.88 
14.010 363 
13.095 551 
13.985 1041 
13.980 1757 
13.975 3304 
18.970 6185 
18.965 10206 
18.960 16135 
13.955 20004 
13.045 26488 
13.930 25252 
13.925 20946 
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13.920 16308 
13.915 12407 
13.910 9335 
13.900 6803 
13.890 5062 
13.880 4161 
13.870 3513 
13.850 2728 
13.810 1696 
13.770 1125 
13.730 968 
4711 


result output 


LANDAUVERTEILUNG EINSCHL BLUNCK-LEISEGANG- 
UND BREMSSTRAHLUNGSKORREKTUR, MIT DEM 
PRIMAERSPEKTRUM GEFALTET 


6 = ORDNUNGSZAHL Z 
12 = ATOMGEWICHT(A) 
4.9800000= SCHICHTDICKE(G/CM**2) 


.07696900= KONSTANTE GROSS A 
18.250000= KONSTANTE GROSS B 
2.0000000= KONSTANTE X1 

— 3.2200000= KONSTANTE C 
.593100000= KONSTANTE KLEIN A 
2.6300000= KONSTANTE KLEIN M 


54.130000= ENERGIE DER EINF ELEKTRONEN (MEV) 
9.5403885= MITTLERER ENERGIEVERLUST (MEV) 

7.9705478= WAHRSCHEINLICHSTER ENERGIEVERLUST (MEV) 
38274711= A*R (MEV) 

.11219839= SCHICHTDICKE/STRAHLUNGSLAENGE 

-01419977= B**2 


FREQUENZ ENERGIE E-VERLUST LAMBDA VERTEILUNG 
(MHZ) (MEV) (MEV) (1) (COUNTS) 
12.385 48.054 6.076 — 5.000 1 
12.286 47.671 6.459 — 4.000 23 
12.188 47,289 6.841 — 3.000 211 
12.080 46.906 7.224 — 2.000 1084 
12.040 46.714 7.416 — 1.500 1982 
11.990 46.523 7.607 -- 1.000 3153 
11.941 46.332 7.798 — 0.500 4381 
11.892 46.140 7.990 0.000 5355 
11.843 45.949 8.181 0.500 5824 
11.793 45.758 8.372 1.000 5740 
11.744 45.566 8.564 1.500 5271 
11.695 45.375 8.755 2.000 4670 
11.645 45.183 8.947 2.500 4130 
11.596 44.992 9.138 3.000 3702 
11.497 44.609 9.521 4.000 3018 
11.399 44.227 9.903 5.000 2361 
11.300 43.844 10.286 6.000 1850 
11.103 43.078 11.052 8.000 1361 
10.905 42.313 11.817 10.000 1005 
10.708 41.547 12.583 12.000 754 
10.511 40.782 13.348 14.000 598 
10.313 40.016 14.114 16.000 469 
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translated progam 


C LANDAUVERTEILUNG 
DIMENSION E1(380),E2(80),C1(30),C2(80),Q(30),ALA(30) 
COMMON E1,E2,C1,C2,ALA,L,KMAX,CMAX,QWRS,AR,ENULL,R1,R2,R38,R4,TS, 
1 ANE 
1001 FORMAT(I2) 
101 READ 1001,NZ 
Z=NZ 
1002 FORMAT(I3) 
READ 1002,NA 
A=NA 
1003 FORMAT(4F10.4) 
READ 1003,T,ENULL,AA,BB 
READ 1001,NX1 
X1=NX1 
READ 1003,C,ALPHA,AMM,CNORM 
1004 FORMAT(F5.2) 
READ 1004,U 
1005 FORMAT(F9.3) 
DO 200 K=1,100 
READ 1005,E1(K +3) 
IF(E1(K + 3) — 4711.)201,202,201 
202 KMAX=K-—1 
GO TO 102 
201 CONTINUE 
E1(K +3)= U*E1(K + 3) 
1006 FORMAT(FS8.1) 
READ 1006,C1(K + 3) 
200 CONTINUE 
102 GAMA=ENULL/0.511 
BETA=SQRTF(1.—1./GAMA**2) 
AR=0.1537*Z*T/(A*BETA* BETA) 
TS =(T*0.0013965333*Z*(Z + 1.)* LOGF(183./(Z**0.3333)))/ 
(A*(1. +0.12%(Z/82.)*(Z/82.))) 
ALE=LOGF(SQRTF(GAMA*GAMA — 1.)) 
X = ALE/2.3026 
W =1.022*SQRTF(GAMA*GAMA — 1.)*BETA/21. 
TY =(TS*TS)/(2.°W*W) 
AA=AA*T*(1.+ TY/TS)/(BETA*BETA) 
IF(X — X1)300,300,301 
300 QMIT=AA*(BB+.43+2.*ALE+ LOGF(ENULL)— 1.— (4.606*X + C+ ALPHA*((X1— X)**MM 
1 ))) 
GO TO 302 
301 QMIT=AA*(BB+ .43+2.*ALE + LOGF(ENULL)-— 1.—(4.606*X + C)) 
302 CONTINUE 
BQU =(0.00002* QMIT*(Z**1.33383))/(AR*AR) 
IF(X — X1)303,303,304 
308 QWRS=AA*(BB+1.06+2.*ALE+ LOGF(AA) — 1.)—(4.606*X +C+ ALPHA*((X1— X)**MM) 
1 )*AA+.05*AR*BQU + 2.*AR*TS 
GO TO 305 
304 QWRS=AA*(BB+1.06+ 2.*ALE+ LOGF(AA) —1.)— (4.606*X +C)*AA + .05°AR*BQU +2.* 
1 AR*TS 
305 CONTINUE 
R1=BQU +3.24 
R2=BQU +4. 
R3=BQU+9. 
R4=BQU +25. 
ANE=1.—TS 
400 FORMAT(//////////42HLANDAUVERTEILUNG EINSCHL BLUNCK-LEISEGANG — /87H 
UND BREMSSTRAHLUNGSKORREKTUR, MIT DEM/ 
24HPRIMAERSPEKTRUM GEFALTET///) 
PUNCH 400 


~ 


we 
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401 FORMAT(/I9,17H = ORDNUNGSZAHL Z/19,17H = ATOMGEWICHT(A)/ 
F10.7,24H= SCHICHTDICKE (G/CM**2)) 
PUNCH 401,Z,A,T 
402 FORMAT(/F10.8,19H= KONSTANTE GROSS A/F10.6,19H= KONSTANTE GROSS B/ 
1 F10.7,14H= KONSTANTE X1/F10.7,13H= KONSTANTE C/F10.8,19H = KONSTANT 
2 E KLEIN A/F10.7,19H= KONSTANTE KLEIN M) 
TAA=AA/T 
PUNCH 402,TAA,BB,X1,C,ALPHA,AMM 
403 FORMAT(/F10.6,35H= ENERGIE DER EINF ELEKTRONEN (MEV)/ 
1 F10.7,32H= MITTLERER ENERGIEVERLUST (MEV)/ 
2 F10.7,41H= WAHRSCHEINLICHSTER ENERGIEVERLUST (MEV)/F10.8,.11H= A*R 
3 (MEV)/F10.8,31H = SCHICHTDICKE/STRAHLUNGSLAENGE/F10.8,6H= B**2) 
PUNCH 403,ENULL,QMIT,QWRS,AR,TS,BQU 
404 FORMAT(//6LHFREQUENZ ENERGIE E-VERLUST LAMBDA VER 
1 TEILUNG/60H ( MHZ) (MEV) (MEV) (1) (CO 
2 UNTS)//) 
PUNCH 404 
L=1 
CMAX=0. 
E1(3) = 2.*E1(4) — E1(5) 
E1l(KMAX + 4) =2,.*E1(K MAX + 3)— E1l(KMAX + 2) 
NI1= ABSF(—1.9+5.) + 1.00000000001 
DO 500 NA1=1,NI1 
AI1=NA1—-1 
AMBDA=AII1-—5. 
CALL MESS(AMBDA) 
500 CONTINUE 
NI2= ABSF((3.1 + 1.5)/0.5) + 1.00000000001 
DO 503 NA2=1,NI2 
AI2=NA2-—1 
AMBDA = AI2*0.5—1.5 
CALL MESS(AMBDA) 
503 CONTINUE 
AMBDA = 4.0 
CALL MESS(AMBDA) 
AMBDA=5.0 
CALL MESS(AMBDA) 
507. NI3=ABSF((16. — 6.)/2.) + 1.00000000001 
DO 509 NA3=1,NI3 
AI3=NA3—-1 
AMBDA = AI3*2.+6. 
CALL MESS(AMBDA) 
509 CONTINUE 
LMAX=L-—1 
DO 510 L=1,LMAX 
IF(C2(L+ 3)*CNORM/CMAX + 0.5)511,512,512 
611 NUT=C2(L+3)*CNORM/CMAX + 0.5—1. 
GO TO 513 
512 NUT=C2(L+3)*CNORM/CMAX + 0.5 
513 CONTINUE 
DOG = E2(L+ 3)/U 
HOUND= E2(L+3) 
CAT = ENULL— E2(L+ 8) 
TIGER= ALA(L+ 3) 
514 FORMAT(1X,F7.3,5X,F7.3,5X,F7.3,5X,F7.3,5.X,15) 
PUNCH 514,DO0G,HOUND,CAT,TIGER,NUT 
510 CONTINUE 
END 
C LANDAUVERTEILUNG 


-_ 
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SUBROUTINE MESS(AMBDA) 

DIMENSION E1(80),E2(30),C1(30),C2(30),Q(30),ALA(30) 
COMMON E1,E2,C1,C2,ALA,L,KMAX,CMAX,QWRS,AR,ENULL,B1,R2,R3,R4,TS, 
ANE 

E2(L-+ 3)= ENULL— QWRS — AR*(AMBDA + 0.05) 

C2(L + 3)=0. 

Q(L + 3) = E1(4) — E2(L+ 3) 

DO 601 K=1,KMAX 

C2(L+ 3) =C2(L+3)+ ANDAU(E1(K +38),Q(L + 3))®C1(K + 3)* 
((E1(K + 2) — E1l(K+8))/2. 

+(E1(K + 3) — E1l(K + 4))/2.) 

Q(L+ 3) = Q(L+ 3) —(E1(K + 3) — E1(K + 4)) 

CONTINUE 

C2(L+ 38) =C2(L+3)/AR 

ALA(L+3)=AMBDA 

IF(C2(L +3) —CMAX)602,602,603 

CMAX =C2(L+ 3) 

CONTINUE 

L=L+1 

RETURN 

END 


FUNCTION ANDAU(E,Q]1) 
DIMENSION E1(30),E2(30),C1(30),C2(30),Q(30),ALA(80) 


1 


m 0 tO = 


COMMON E1,E2,C1,C2,ALA,L,KMAX,CMAX,QWRS,AR,ENULL,B1,R2,R3,R4,TS, 
ANE 

AMBDA =(Q1— QWRS)/AR — 0.05 
X1=1.4142°AMBDA/SQRTF(R1) 
X2=1.4142°(AMBDA — 3.)/SQRTF(R2) 
X3=1.4142*(AMBDA — 6.5)/SQRTF(R3) 
X4=1.4142*(AMBDA — 11.)/SQRTF(R4) 

F =(.5°*(.5*TS))* 

(.8182*PARCYL(-— TS, — X1)/SQRTF(R1°* ANE) 
+ .116*PARCYL(— TS, — X2)/SQRTF(R2** ANE) 
+ .057*PARCYL(— TS, — X3)/SQRTF(R3** ANE) 
+ .035*PARCYL(— TS, — X4)/SQRTF(R4**ANE)) 
W =((AR/ENULL)**TS)*F 

ANDAU=W 

RETURN 


C ANDAU 


END 


FUNCTION PARCYL(Y,Z) 
IF(Y)10,11,10 


11 
10 


24 


PARCYL=EXPF(—0.6°Z*°Z) 
CONTINUE 

IF(Y¥)12,13,12 

IF(ABSF(Z) — 3.)13,13,15 
IF(Z)16,16,17 

Q=1. 

P=-1. 

AMIN = 10. 

J=0 

AJ=J 

P= —P*(Y —2.°AJ)*(Y¥ — 2.°AT — 1.)/(AT + 1.)*2.°Z9Z) 
Q=Q+P 

IF(ABSF(P) — AMIN)25,26,26 
AMIN = ABSF(P) 

CONTINUE 

J=J+1 

IF(ABSF(P) — AMIN)27,28,27 
IF(ABSF(P) — 1.0E — 05)27,27,30 
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AJ=J 
P= — Py —2.%AJ)*(Y—2.°%AJ — 1.)/((AT +1.)92.°Z9Z) 
Q=Q+P 

IF(ABSF(P)— AMIN)31,82,32 

AMIN = ABSF(P) 

CONTINUE 

GO TO 20 

CONTINUE 

PARCYL = EXPF(— 0.5%Z*Z)*(Z**Y)*(Q— P) 
CONTINUE 

IF(Z)83,34,34 

Z=—Z 

P=}. 

Q=1. 

AMIN = 10. 

J=0 

AJ=J 

P=P(Y+2.°AT+1.)*(¥ +2.°%AT + 2.)/(2.°Z*Z*(AJ +1.)) 
Q=P+Q 

IF(ABSF(P)— AMIN)42,48,43 
AMIN = ABSF(P) 

CONTINUE 

J=J+1 

IF(ABSF(P)— AMIN)44,45,44 
IF(ABSF(P)— 1.0E— 05)44,44,47 

AJ=J 

P=P*%Y+2.%*AJ+1.)*(Y+2.%AJ + 2/(2.°Z2*Z*(AJ +1.)) 
Q=P+Q 

IF(ABSF(P) — AMIN)48,49,49 

AMIN = ABSF(P) 

CONTINUE 

GO TO 35 

CONTINUE 

PARCYL=2.506628%(Z**(— Y — 1.))*(Q— P)/AMMA(-— Y) 
CONTINUE 

CONTINUE 

IF(Y)50,51,50 

IF(ABSF(Z) — 8.)52,52,51 

TF(0.5—0.5* Y)54,55,55 

NP=0.5—0.5*Y—1. 

GO TO 56 

NP=0.5—0.5*Y 

CONTINUE 

P=NP 

IF((0.5 — 0.5* Y) — P)57,58,57 

$1=0. 

GO TO 59 

AB = —0.5*°Y 

XB=0.5*Z*Z 

XC=0.5—0.5*Y 
S1=1.772454*PHI(AB,0.5,XB)/AMMA(XC) 
CONTINUE 

IF(— 0.5*Y)60,61,61 

NR= —0.5*Y —1. 

GO TO 62 

NR=—0.5*Y 

CONTINUE 

R=NR 

IF(—0.5*Y— R)63,64,63 

S2=0. 

GO TO 65 

DOOF =0.5—0.5*Y 
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DUMM =0.5*Z*Z 
DEP = —0.5*Y 
S2 = 3.544908*Z* PHI(DOOF,1.5, DUMM)/(1.414213*AMMA(DEP)) 
65 CONTINUE 
PARCYL=2.**(0.5* Y)* EXPF(— 0.5%Z*Z)*(S1 — 82) 
51 CONTINUE 
RETURN 
C PARCYL 
END 


FUNCTION AMMA(X) 
XSTERN=X 
IF(X — 10.)10,11,11 
10 IF(X)12,12,13 
12 IF(X)14,15,15 
14 NX=X-1. 
GO TO 16 
15 NX=X 
16 CONTINUE 
PX=NX 
IF(X — PX)17,81,17 
18 FORMAT(5HAMMA(,E18.12,12H)= UNENDLICH) 
81 PUNCH 18,X 
GO TO 103 
17 XSTERN=10.+(PX— X) 
13 CONTINUE 
IF(X)11,11,19 
19 XSTERN=10.+(X—PX) 
11 CONTINUE 
X2= XSTERN*XSTERN 
X3= X2*XSTERN 
X4=X3*XSTERN 
G = 2.506628" EXPF( — XSTERN + (XSTERN — 0.5)*LOGF(XSTERN)) 
*(1.+ 0.08833333/XSTERN + 0.0034722222/X2 — 0.002681382716/ 
X3— 0.000229472004/X4) 
IF(X —10.)20,21,21 
20 AN=1. 
IF(X)8,9,9 
8 NX=X-—1. 
GO TO 7 
9 NX=X 
7 CONTINUE 
PX=NX 
IF(X)22,22,23 
22 FO=9.+PX-—X 
GO TO 24 
23 FO=9.+X—PX 
24 CONTINUE 
F=F0 
AN=AN*F 
33 F=F-1. 
IF(F — PX)30,31,31 
31 AN=AN*F 
GO TO 33 
30 CONTINUE 
36 G=G/AN 
21 CONTINUE 
AMMA =G 
108 RETURN 


we -_ 
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FUNCTION PHI(A,C,X) 
Q=1. 
P=1. 
J=0 
AJ=J 
P=(P9(A+AJ)*X)/((C+AJ%(1.+ AJ)) 
Q=Q+P 
18 J=J+1 
IF(ABSF(P) — 1.0E — 07)15,15,16 
16 AJ=J 
P=(P*(A+AJ)*X)/((C+AJ)9(1.+ AJ)) 
Q=Q+P 
GO TO 13 
15 CONTINUE 
PHI=Q 
RETURN 
C PHI 
END 


input data 


4.98 54.13 0.0768 18.25 


— 3.22 531 2.63 6824. 
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4161. 
13.870 
3513. 
13.850 
2728. 
13.810 
1696. 
13.770 
1125. 
13.730 
968. 
4711. 


output values 


LANDAUVERTEILUNG EINSCHL BLUNCK-LEISEGANG- 
UND BREMSSTRAHLUNGSKORREKTUR, MIT DEM 
PRIMAERSPEKTRUM GEFALTET 


6= ORDNUNGSZAHL Z 
12= ATOMGEWICHT(A) 
4.9800000= SCHICHTDICKE (G/CM**2) 


.07696899= KONSTANTE GROSS A 
18.250000= KONSTANTE GROSS B 
2.0000000= KONSTANTE X1 

— 3.2200000= KONSTANTE C 
.53100000= KONSTANTE KLEIN A 
2.6300000= KONSTANTE KLEIN M 


54.130000= ENERGIE DER EINF ELEKTRONEN (MEV) 
9.5403880= MITTLERER ENERGIEVERLUST (MEV) 

7.9705479= WAHRSCHEINLICHSTER ENERGIEVERLUST (MEY) 
.38274712= A*R (MEV) 

.11219838= SCHICHTDICKE/STRAHLUNGSLAENGE 

.01419976= B**2 


FREQUENZ ENERGIE E-VERLUST LAMBDA VERTEILUNG 
( MHZ) (MEV) (MEV) (1) (COUNTS) 
12.385 48.054 6.075 — 5.000 1 
12.286 47.671 6.458 — 4.000 23 
12.187 47.288 6.841 — 3.000 211 
12.089 46.905 7.224 — 2.000 1084 
12.039 46.714 7.415 — 1.500 1982 
11.990 46.523 7.606 — 1.000 3153 
11.941 46.331 7.798 — .500 4381 
11.891 46.140 7.989 0.000 5355 
11.842 45.948 8.181 .500 5824 
11.793 45.757 8.372 1.000 5740 
11.743 45.566 8.563 1.500 5271 
11.694 45.374 8.755 2.000 4670 
11.645 45.183 8.946 2.500 4130 
11.595 44.992 9.137 3.000 3706 
11.497 44.609 9.520 4.000 3018 
11.398 44,226 9.903 5.000 2361 
11.299 43.843 10.286 6.000 1850 
11.102 43.078 11.051 8.000 1361 
10.905 42.312 11.817 10.000 1005 
10,708 41.547 12.582 12.000 754 
10.510 40.781 13.348 14.000 598 
10.313 40.016 14.118 16.000 469 
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6.2 FORTRAN INTO ALGOL 60 


On the following pages the method of translating a FORTRAN program 
into an ALGOL 60 program is described. The translation of the 
program itself is explained, together with a comment on how to adapt 
the input data. The input/output statements are not treated here, 
they are discussed in Part 3. 

Two different FORTRAN II programs (including data input and 
computed results) and their translations into ALGOL* serve as ex- 
amples to illustrate the method of translation. 

The FORTRAN II programs, were computed on the IBM 1620; 
(40,000 character memory, punched cards input/output) and the 
ALGOL programs were run on the NE 803B (8K memory, paper tape 
input/output).f 


6.2.1 Translation from a FORTRAN I! Program 


To translate a FORTRAN II program into an ALGOL program, it is 
recommended that the following patterns be followed: 

1. Scan the main program and the COMMON statements of the 
subprograms for integer variable identifiers. The first character of these 
integer variable identifiers is either J, J, K, L, M, or N. Declare such 
identifiers in the beginning of the ALGOL program under integer. 

2. Scan the main program and the COM MON statements of the sub- 
programs for real variable identifiers. The first character of these real 
variable identifiers is any alphabetic character except J, J, K, L, UM, 
or N. Declare such identifiers in the beginning of the program under 
real. 

3. Look for GO TO(. . .),Nv statements in the main program, because 
their translation (see Part 5 ““GO T'°O’’) leads to a switch declaration in 
the beginning of the program. 

4. Look for arithmetic statements, functions, and subprograms, their 
translation must be placed before the translation of the main program. 

5. If one reaches a format statement or an input/output statement, 
then there are two possibilities: 


(a) If the input/output of the ALGOL processor follows the FOR- 
TRAN rules (see Part 3), then one must copy the format statements 
and the input/output statements. 

(6) If the input/output of the ALGOL processor follows other rules 
than FORTRAN the format statements must be bypassed. They must 


* An ALGOL program is an ALGOL 60 program which includes input/output state- 
ments. 


+ The program itself contains only the NE input/output statements, the ALGOL 60 
reference language symbols are not altered due to the hardware representation of the 
NE. 
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be translated together with the appropriate input/output statements 
with the aid of Part 3. 


Note: Most ALGOL processors do not need any specification on the 
input data (such as format statements). Most of the ALGOT processors 
allow the print-out of the desired numbers (standard format) with « (or 
6) decimal digits times a power of ten if no declaration of desired format 
is made. 


6. Before translating line by line (or sometimes group of statements 
by group of statements) with the aid of Part 5, it is useful to keep the 
following points in mind: 


(1) Numbers terminating with a decimal point can be written without 
the decimal point. 

(ii) Do not forget to place a semicolon after every statement. 

(iii) A semicolon before end is not necessary. 

(iv) After translating the program, check whether for every begin 

here is an appropriate end. 

(v) After translation of the program, the sequence of the statements 
must be as followes. (If this is not the case, the sequence must be 
changed in the proper way.): 

integer 

real 

array and/or integer array 

switch 

subprograms 

main program 
The sequence in a subprogram (i.e. procedure and/or real procedure 
and/or integer procedure) is: 


(a) type of procedure (real procedure, integer procedure, procedure) 
and subprogram identifier with (if any) the appropriate parameters 

(6) value 

(c) specifications (integer, real, label, integer array, array, switch, 
string, procedure, real procedure, integer procedure) 

(d) subprogram. 
Comment records may be placed anywhere. 


6.2.2 Translation from a FORTRAN IV Program 


To translate a FORTRAN IV program into an ALGOL 60 program, it 
is recommended that the following pattern be followed: 

1. Scan the main program and the COM MON statements of the sub- 
programs for integer variable identifiers which are not declared under 
INTEGER or REAL or LOGICAL in the FIV program (N30). The 
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first character of these integer variable identifiers is either J, J, K, 
L, M, or N. If any of these identifiers are found, declare them in the 
ALGOL program under integer, together with the identifiers listed 
under INTEGER in the FIV program. 

2. Scan the main program and the COM MON statements of the sub- 
programs for real variable identifiers which are not declared under 
REAL or INTEGER or LOGICAL in the FIV program (N30). The 
first character of these real variable identifiers is any alphabetic 
character except J, J, K, L, M, or N. If any of these identifiers are 
found, declare them in the ALGOL program under real, together with 
the identifiers listed under RH AL in the FIV program. 

3. Look for GO TO(...),Nv statements in the main program, be- 
cause their translation (see Part 5 “GO 7'O’’) leads to a switch declara- 
tion in the beginning of the program. 

4. Look for arithmetic statement functions and subprograms, their 
translation must be placed before the translation of the main program. 

5. If one reaches a format statement or an input/output statement, 
then there are two possibilities: 

(a) If the input/output of the ALGOL processor follows the FOR- 
TRAN rules (see Part 3), then one must copy the format statements 
and the input/output statements. 

(6) If the input/output of the ALGOL processor follows other rules 
than FORTRAN the format statements must be bypassed. They must 
be translated together with the appropriate input/output statements 
with the aid of Part 3. 


Note: Most ALGOL processors do not need any specification on the 
input data (such as format statements). Most of the ALGOL processors 
allow the print-out of the desired numbers (standard format) with e (or 
6) decimal digits times a power of ten if no declaration of desired format 
is made. 


6. Before translating line by line (or sometimes group of statements 
by group of statements) with the aid of Part 5, it is useful to keep the 
following points in mind: 

(i) Numbers terminating with a decimal point can be written without 
the decimal point. 

(ii) Do not forget to place a semicolon after every statement. 

(iii) A semicolon before end is not necessary. 

(iv) After translating the program, check whether for every begin 
there is an appropriate end. 

(v) After translation of the program, the sequence of the statements 
must be as follows. (If this is not the case the sequence must be 
changed in the proper way.) 
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integer 

real 

Boolean 

array and/or integer array 

switch 

subprograms 

main program 
The sequence in a subprogram (i.e. procedure and/or real procedure 
and/or integer procedure and/or Boolean procedure) is: 


(a) type of subprogram (real procedure, integer procedure, Boolean 
procedure, procedure) and subprogram identifier with (if any) the 
appropriate parameters 

(6) value 

(c) specifications (integer, real, Boolean, label, integer array, array, 
switch, string, procedure, real procedure, integer procedure, Boolean 
procedure) 

(d) subprogram. 

Comment records may be placed anywhere. 


6.2.3 The Data 


To translate input data of a FORTRAN program into input data of an 
ALGOL program, one should keep the following points in mind: 

1. If the ALGOL processor follows the FORTRAN input rules (see 
Section 3) the input data may be copied directly. 

2. If the ALGOL processor does not follow the FORTRAN input 
rules, then the different input numbers or values must be separated. 
(This is opposite to FORTRAN, where a separation of the numbers or 
values is not necessary because the numbers or values are identified 
with the aid of the appropriate format statements.) Although ALGOL 
processors allow any character as a number or value separator except 
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, —, +, ., or 19, 1t is recommended to separate 
by using a new record. 

3. Blank spaces on an input data record in FORTRAN are evaluated 
as Zeros. 

4. After keeping these points in mind, translate the input data 
with the aid of Part 5 “numbers’’. 


6.2.4 A Simple Example Including Input Data and 
Computed Output Values 
Remarks: This example is written in FORTRAN II and translated into 
ALGOL. 
The program, including the input data given, was run on a 
IBM 1620y. The output values of this computation are presented. The 
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input/output statements are translated according to the rules of the 
NE computer (except that read and print appearing in the example 
are written with small letters). In order to run the translated program, 
it was changed due to the hardware representation and restrictions of 
the NE (this modified program is not given here) and fed, together 
with the data given, into the NE 803B. The output values of this 


computation are also given. 

In order to compare the output values from the two programs, one 
must know that the numbers of the NE output are rounded and that 
the numbers of the IBM output are truncated; thus a difference of +1 
in the last digit is due to this procedure. 

program 


C POLYNOMIAL CURVE FITTING 
DIMENSION (12,13) 
2 JV=13 
READ 3,XMN,XRA,MIND,INC,MAXD 
3 FORMAT(2F10.3,315) 
ARX=1.0/XRA 
IF(MIND)4,6,6 
4 PRINT 5 
5 FORMAT(8HMIND NEG) 
GO TO 69 
6 MAXI=MAXD+1 
IF(JV—MAXI)7,7,8 
7 MAXI=JV-1 
8 KMIN=MIND+1 
C CLEAR TOTAL BOXES 
A(1,JV)=0.0 
YS8Q=0.0 
NP=0 
DO 9 J=2,MAXI 
A(J,JV)=0.0 
M=J-1 
DO 9 I=M,J 
9 A(I,J)=0.0 
C READ DATA AND ACCUMULATE SUMS OF POWERS 
10 READ 11,P,Q,J 
11 FORMAT(F10.4,F10.4,11) 
IF(J)16,12,16 
12 NP=NP+1 
S=(P—XMN)*ARX 
YSQ=YS8Q+Q*Q 
T=1.0 
K=1 
DO 15 J=2,MAXI 
M=J-1 
DO 15 I=M,J 
1F(K — MAXI)13,13,14 
13 A(K,JV)=A(K,JV)+T*Q 
K=K+1 
14 T=T*S 
15 A(I,J)=A(I,J)+T 
GO TO 10 
16 PUNCH 3,XMN,XRA,MIND,INC 
D=NP 
A(1,1)=D 
N=(MAXI-KMIN)/INC 
IF(NP —N)17,17.18 
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N=NP-1 
MAXD=N*INC+MIND 
MAXI=MAXD+1 


C SPREAD TOTALS THROUGHOUT TOP HALF OF MATRIX 


C 


C 


C 


19 


20 


21 


M1=MAXI-—2 

DO 20 I=KMIN,M1,INC 
DO 20 J=LMAXLINC 
IF(J —I—2)20,19,19 
L=I4J 

K=L/2 

L=L—K 

A(I,J)= A(K,L) 
CONTINUE 

PUNCH 21,MAXD,NP,YS8Q 
FORMAT(7HMAX DEG I8,11H NO POINTS 15,12H RAW S OF § E11.4) 


SET UP TO SOLVE EQUATIONS 


DO 42 K=KMIN,MAXI,INC 
P=1.0/A(K,K) 
A(K,K)=(K,JV)*P 


SOLVE FOR RESIDUALS 


25 


27 


YSQ= YSQ—A(K.K)*A(K,JV) 

D=D-1.0 

IF(D)22,22,23 

Q=0.9999E99 

GO TO 26 

IF(YSQ)24,24,25 

Q=0.0 

GO TO 26 

Q=SQRTF(YSQ/D) 

J=K-1 

PUNCH 27,J,YSQ,Q | 
FORMAT(83HPOLY DEG 13,13H RESID S OF S$ E11.4,7H ST ERR E11.4) 


SOLVE FOR COEFFICIENTS 


M1=K+INC 
M=MAXI-M1 
IF(M)30,28,28 

DO 29 J=M1,MAXI,INC 
A(J,K)=A(K,J) 
A(K,J)=A(K,J)*P 

L=1 

N=KMIN 

T=1.0 

DP 41 I=1,MAXI 

IF(N —I)4,31,40 
N=N+INC 
IF(I — K)33,37,32 

M1=I 

P=A(I,K) 

IF(M)36, 34,34 

DO 35 J=M1,MAXI,INC 
A(I,J) = A(L,J)— A(K,J)*P 
A(I,K) = A(I,J V)— A(K,K)*P 
GO T0(38,41),L 

L=2 

J=I-1 

R= A(I,K)*T 

PUNCH 39,J,R 
FORMAT(I4,10H DEG COEF F11.4) 
T=T*ARX 

CONTINUE 

JV=K 

CONTINUE 

END 
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0.0 2.0 0 1 3 
—0.9 0.500 0 

—0.7 0.977 0 

-- 0.5 1.199 0 

—0.3 1.345 0 

—0.1 1.454 0 

0.1 1.541 0 

0.3 1.614 0 

0.5 1.676 0 

0.7 1.730 0 

0.9 1.779 0 

0.0 0.0 1 

0.000E — 99 2.000E — 00 0 1 


MAX DEG 3 NO POINTS 10 RAW S OF 8 2.0511E+01 
POLY DEG 0 RESID S OF S 1.4262E—00 ST ERR 3.9808E —01 
0 DEG COEF = 1.3815E—00 
POLY DEG 1 RESID S OF S 2.0671E—01 ST ERR 1.6074E—01 
0 DEG COEF = 1.3815E—00 
1 DEG COEF  6.0790E—01 
POLY DEG 2 RESID 8S OF S 4.3332E—02 ST ERR 7.8678E— 02 
0 DEG COEF 1.5266E—00 
1 DEG COEF  6.0790E—01 
2 DEG COEF —4.3977E—01 
POLY DEG 3 RESID S OF S 9.2597E—03 ST ERR 3.9284E — 02 
0 DEG COEF = 1.5266E—00 
1 DEG COEF 3.6462E—01 
2 DEG COEF —4.3977E—01 
3 DEG COEF 4.1516E—01 


begin comment POLYNOMIAL CURVE FITTING; 
integer JV, MIND,MAXD,MAXI,KMIN,NP,J,M,I,K,N,M1,L; 
real XMN,XRA,ARX,YSQ,P,Q,8,T,D,R; 
array A[1:12,1:13]; 
switch JUMP:=38,41; 
JV:=13; 
read XMN,XRA,MIND,INC,MAXD; 
ARX:=1/XRA; 
if MIND > 0 then go to 6 else go to 4; 
4: printSsMIND NEG?; 
go to 69; 
6: MAXI:=MAXD +1; 
if (JV—MAXI) < 0 then go to 7 else go to 8: 
re MAXI:=JV-1; 
8: KMIN:=MIND+1; 


comment CLEAR TOTAL BOXES; 
A({1,JVJ:=0; 
YSQ:=0; 
NP:=0; 
for J:=1 step 1 until MAXI do 
begin A{J,JV]:=0; 
M:=J—1; 
for I:=M step 1 until J do A[I,J]:=0 
end 
READ DATA AND ACCUMULATE SUMS OF POWERS; 
10: read P,Q,J; 
if J = 0 then go to 12 else go to 16; 
12: NP:=NP+1; 
S:=(P— XMN) x ARX; 
Y¥8Q:=YS8Q+QxQ; 
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input data 


output values 


translated program 
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T:=1; 
K:=1; 
for J:=2 step 1 until MAXI do 
begin M:=J+1; 
for I:=M step 1 until J do 
begin if (K— MAXI) < O then go to 13 
else go to 14; 
13: A{K,JV}:=A[K,JVJ+TxQ; 
K:=K+1; 
14: T:=TxS; 
A[T,J):=A[T,J[+T 
end 
end; 
go to 10; 
16: print SCALED(4), SAMELINE,XMN,XRA,DIGIT(4),MIND,INC; 
D:=NP; 
A[1,1):=D; 
N:=(MAXI— KMIN)/INC; 
if (NP—N) < 0O then go to 17 else go to 18; 
17: N:=NP-1; 
18: MAXD:=N xINC+MIND; 
MAXI:=MAX)D+1; 
comment SPREAD TOTALS THROUGHOUT TOP HALF OF MATRIX; 
M1:=MAXI-—2; 
for I:=KMIN step INC until M1 do 
begin for J:=I step INC until MAXI do 
begin if(J—I—2) > O then go to 19 ekee go to 20; 


19: L:=I+J; 
K:=L/2; 
L:=L-K: 
20: end 
end; 


print $MAX DEG?,SAMELINE,DIGITS(2),MAXD,$ NO POINTS ?, 

DIGITS(4),NP,$ RAW S OF S ?,SCALED(5),YSQ; 
comment SET UP TO SOLVE EQUATIONS; 

for K:=KMIN step INC until MAXI do 

begin P:=1/A[K,K)]; 
A[K,K]:=A[K,JV] x P; 

comment SOLVE FOR RESIDUALS; 
YSQ:= YSQ— A[K,K] x A[K,JV]; 
D:=D-1; 
if D < 0O then go to 22 else go to 23; 

22: Q:=0.9999,,99; 


go to 26; 
23: if YSQ < 0O then go to 24 else go to 25; 
24: Q:=0; 
go to 26; 
25: Q:=sqrt(YSQ/D); 
26: J:=K-1; 


print $POLY DEG?,SAMELINE,DIGITS(2),J, 
$ RESID S OF 8 ?, SCALED(5),YSQ, 


$ ERROR ?,Q; 
comment SOLVE FOR COEFFICIENTS; 
M1:=K+INC; 


M:=MAXI-M1; 
if M > O then go to 28 else go to 30; 
28: for J:=M1 step INC until MAXI do 
begin A[J,K]:~A[K,J]; 
A(K,J]:=A[K,J] x P 


30: L:=1; 


69: 


41: 
42: 


end 
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for I:=1 step 1 until MANI do 
begin if (N—I) = 0 then go to 31 else 


31: 


40: 
end; 


JV:= 


end 


if (N—I) < 0 then go to 4 else go to 40; 
N:=N4+1NC; 

if (I—K) = O then go to 37 else 

if (I—Kk) -: 0 then go to 33 else go to 32; 
M1:=I: 

P:=A[I,K]; 

if M > O then go to 34 else go to 36; 
for J:-=-M1 step INC until MAXI do 
A{I,J):=A[I,J] —AIK,J] > P; 
A[I,K]:=A[I,JV]-- A[K,K] ~ P; 

go to JUMP[TL]; 


Le=2: 
J:=I-1; 


R:=A[I,K] x T; 

print SAMELINE,DIGITS(3),J,8 DEG COEF ?, 
SCALED(5),R; 

TieTXARN: 


K 


input data 
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output values 
0.000@+00 2.000@+00 0 1 
MAX DEG 3 NO POINTS 10 RAW S OF S 2.0512@+01 
POLY DEG 0 RESID S OF S 1.4262@+00 ST ERROR 3.9808@ — 01 
0 DEG COEF 1.3815@+00 
POLY DEG 1 RESID S OF 8 2.0672@-—01 ST ERROR 1.6075@-01 
0 DEG COEF 1.3815@ +00 
1 DEG COEF 6.0791@-01 
POLY DEG 2 RESID S OF § 4.3332@-—02 ST ERROR 7.8678@ — 02 
0 DEG COEF 1.5266@+00 
1 DEG COEF 6.0791@-01 
2 DEG COEF —4.3977@-01 
POLY DEG 3 RESID S OF § 9.2592@—03 ST ERROR 3.9284@ — 02 
0 DEG COEF 1.5266@+00 
1 DEG COEF 3.6462@-01 
2 DEG COEF —4.3977@-01 
3 DEG COEF 4.1516@-01 


6.2.5 A More Complex Example Including Input Data and 
Computed Output Values 


Remarks: This example is written in FORTRAN II and translated into 
ALGOL. 

The program, including the input data given, was run on a IBM 
1620y1. The output values of this computation are presented. 

The input/output statements are translated according to the rules of 
the NE computer (except that read and print appearing in the example 
are written with small letters). In order to run the translated program, 
it was changed due to the hardware representation and restrictions of 
the NE (this modified program is not given here) and fed, together with 
the data given, into the NE 803B. The output values of this computation 
are also presented. 

In order to compare the output values from the two programs, one 
must know that the numbers of the NE output are rounded and that 
the numbers of the IBM output are truncated; thus a difference of -+1 
in the last digit is due to this procedure. 


program 


C CALCULATION OF THE TSAI-RADIATION-CORRECTION(PHYS.REV.122,1898(1961)) 
C CORR FOR A GIVEN DE, AN ELECTRON-ENERGY E, A SCATTERING ANGLE 
C THETA AND AN ATOMIC NUMBER Z. 
FORMAT(I10,3F10.3,F 15.5) 
FORMAT(33H NOTE BORN-APPROXIMATION VIOLATED) 
FORMAT(3F8.1,2F8.3,17) 
FORMAT(27H TSAI-RADIATION-CORRECTION ////) 
FORMAT(46H E THETA DE DELTA CORR Z /!) 
PUNCH3 
PUNCH 4 
READ 1,NZ,E,THETA,DE,GRM 
Z=NZ 
IF(NZ — 8)10,10,11 
11 PUNCH 2 
10 A=THETA*3.1416/180. 
ZAHL= —1./(137.04%3.1416) 
EMEM=0.511*0.511 
ETA =1.+ E*(1.—COSF(A))/GRM 


moog lo ke 


219 


DICTIONARY FOR COMPUTER LANGUAGES 


E3=E/ETA 

E4=E+GRM-— E3 

BETA4 =SQRTF(E4*E4 — GRM*GRM)/E4 

QQ =(- 4.*E*E*(SINF(0.5*A))**2)/ETA 

TERMI = ZAHL*(28./9. — (18./6.)*LOGF(— QQ/EMEM) + (LOGF(— QQ/EMEM) 
1.+2.*Z*LOGF(ETA))*(2.*LOGF(E/DE) — 3.*LOGEF(ETA))) 

TERM? = ZAHL*(F((E8— E)/E3)— Z*Z*LOGF(E4/GRM)) 

TERM3 = ZAHL*(Z*Z*LOGF(GRM/(ETA*DE))*((1./BETA4)*LOGF 

(1.4 BETA4)/(1.— BETA4)) — 2.)+ (Z*Z/BETA4)*(0.5*LOGF((1. + BETA4) 
/(1.— BETA4))*LOGF((E4+ GRM)/(2.*GRM)) — F(—SQRTF((E4— GRM)/(E4+ GRM)) 
*SQRTF((1.+ BETA4)/(1.— BETA4))))) 

TERM4=ZAHL*Z*(F(—(GRM — E3)/E) — F(GRM*(GRM — E3)/ 


1 (2.°E3*E4— GRM*E))+ F(2.*E3*(GRM — E3)/(2.*E3*E4— GRM*E))+ LOGF(ABSF( 


C THIS 


(2.*E3*E4 — GRM*E)/(E*(GRM — 2.*E3))))* LOGF(GRM/(2.*E3))) 
TERM5=ZAHL*Z*(F(— (E4— E3)/E3) — F(GRM*(E4 — E3)/(2.*E* E4— GRM*E3)) 
+ F(2.%E*(E4— E3)/(2.*E*E4— GRM*E3)) + LOGF(ABSF((2.*E* E4— GRM*E3) 
/(E3*(GRM — 2.*E))))*LOGF(GRM/(2.*E))) 

TERM6=ZAHL*Z*(F(—(GRM-— E)/E) — F((GRM — E)/E) + F(2.*(GRM — E)/GRM) 
+ LOGF(ABSF(GRM/(2.*E— GRM)))* LOGF(GRM/(2.*E))) 

TERM? = ZAHL*Z*(F(—(GRM — E3)/E3) — F((GRM — E3)/E3) + F(2.*(GRM — E3)/ 
GRM)+ LOGF(ABSF(GRM/(2.*E3 — GRM)))* LOGF(GRM/(2.*E3))) 
TSAI=TERM1— TERM2+ TERM3+ TERM4— TERM5— TERM6+ TERM7 
CORR=EXPFK(TSAI) 

PUNCH 6,E,THETA,DE,TSAI,CORR,Z 

STOP 

END 


IS THE SPENCE-FUNCTION CALCULATED FROM MITCHELL(PHIL. MAG. 


C 40,351,(1949)) 


101 


102 
103 


104 
105 


106 
107 


108 
109 


110 


C END 


10 


C THIS 


FUNCTION F(X) 

PIPI = 9.8696/6. 

IF(X + 1.)101,102,102 

Y=1./(1.— Y) 

F= — PIPI+SUM(Y)—0.5*(LOGF(ABSF(1.— X)))**2 
RETURN 

IF(X)103,103,104 

Y=X/(X—1.) 

F= —SUM(Y)—0.5*(LOGF(ABSF(X — 1.)))**2 
RETURN 

IF(X — 0.5)105,103,106 

Y=X 


IF(X — 1.)107,108,108 

Y=1.—-X 

F=PIPI-SUM(Y)— LOGF(X)* LOGF(1.— X) 
RETURN 

IF(X — 2.)109,110,110 

Y=(X—1.)/X 

F = PIPI+SUM(Y) — 0.5*LOGF(ABSF(X))*LOGKF(((X — 1.)**2)/ABSF(4)) 
RETURN 

Y=1./X 

F = PIPI*2.—-SUM(Y)—0.5*(LOGF(X))**2 
RETURN 

END 

OF SUBPROGRAM F(X) 


FUNCTION SUM(Y) 

DO 10 N=2,8 

AN=N*N*(N+1) 

T=(Y—1.)**N/AN 

SUM=(Y*(3.+ Y/4.+T)+2.*(1.— Y)*LOGF(1.— Y))/(1.+ Y) 
RETURN 

IS THE SUM TERM Y**N/(N*N(N+1)) 

END 
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input data 
1 900. 145. 13.1 938.213 


output values 
TSAI-RADIATION-CORRECTION 


E THETA DE DELTA CORR Z 


900.0 145.0 13.1 — .155 .856 1 


translated program 


begin comment CALCULATION OF THE TSAI-RADIATION-CORRECTION 
(PH YS.REV.122,1898(1961)) CORR FOR A GIVEN DE, 
AN ELECTRON-ENERGY E, A SCATTERING ANGLE THETA 
AND AN ATOMIC NUMBER Z,; 
integer NZ,N; 
real Z,E, THETA,DE,A,ETA,GRM,EMEM,E3,E4,BETA4,QQ,ZAHL,TERM1, 
TERM2,TERM3,TERM4,TERM5,TERM6,TERM7,TSAI,CORR; 
real procedure F(X); 
value X; 
real X; 
begin real PIPI,Y; 
real procedure SUM(Y); 
value Y; 
real Y; 
begin integer N; 
real T,AN; 
for N:=2 step 1 until 8 do 
begin AN:=NxNx(N+1); 
T:=(Y—1)tN/AN 
end; 
SUM:=(Y x (3+ Y/4+T)+2 x (1— Y) xIn(1— Y))/(1+ Y) 
end 
THIS IS THE SUM TEJ.M YtN/(N x N(N+1)); 
begin PIPI:=9.8696/6; 
if (X+1) > O then go to 102 else go to 101; 
101: Y:=1/(1—X); 
F:= — PIPI+SUM(Y) — 0.5 x In(abs(1 — X)))f2; 
go to 211; 
102: if X < O then go to 103 else go to 104; 
103: Y¥:=X/(X—-1); 
F:= —SUM(Y)-—0.5 x (In(abs(X —1)))t2; 
go to 211; 
104: if (X—0.5) = O then go to 103 else 
if (X—0.5) < 0 then go to 105 else go to 106; 
105: Y:=X; 
F:=SUM(Y); 
go to 211; 
106: if (X—1) > O then go to 108 else go to 107; 
107: Y:=1-X; 
¥ : = PIPI —SUM(Y) —1n(X) x In(1— X); 
go to 211; 
108: if (X—2) > O then go to 110 else go to 109; 
109: Y:=(X—1)/X; 
F:=PIPI+SUM(Y) — 0.5 x In(abs(X)) x In(((X — 1)f2)/ 
abs(X)); 
go to 211; 
110: Y:=1/X; 
F:=PIPI x 2—SUM(Y)— 0.5 x (In(X))f2; 
211 end 
end OF SUBPROGRAM F(X); 
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print $ TSAI-RADIATION-CORRECTION $L4??; 


print $H E THETA DE DELTA CORR Z $L2??; 
read NZ,E,THETA,DE,GRM; 
Z2:=NZ; 


if (NZ—8) < 0 then go to 10 else go to 11; 


11: print $ NOTE BORN-APPROXIMATION VIOLATED?; 
10: A:=THETA x 3.1416/180; 
ZAHL:= —1/(187.04 x 3.1416); 
EMEM:=0.511 x 0.511 
ETA :=1+E x (1—cos(A))/GRM; 
E3:=E/ETA; 
E4:=E+GRM-— E3; 
BETA4:=sqrt(E4 x E4— GRM x GRM)/E4; 
QQ:=(—4x Ex E x (sin(0.5 x A))t2)/ETA; 
TERM1:=ZAHL x (28/9 — (13/6) x In(— QQ/EM EM) + (In( — QQ/ EMEM) 
—1+2xZ x 1n(ETA)) x (2 x In(E/DE)—83 x In(ETA))); 
TERM2:=ZAHL x (F((E8— E)/E8) — Z x Z x In(E4/GRM)); 
TERM3:=ZAHL x (Z x Z x In(GRM/(ETA x DE)) x ((1/BETA4) x In((1+ BETA4) 
/(1—BETA4))— 2)+(Z x Z/BETA4) x (0.5 x 1n((1+ BETA4)/ 
(1 — BETA4)) x In((E4+ GRM)/(2 x GRM)) — F(—sqrt((E4— GRM)/ 
(E4+GRM)) x sqrt((1+ BETA4)/(1— BET A4))))); 
TERM4:=ZAHL x Z x (F(— (GRM — E3)/E) — F(GRM x (GRM — E3)/(2 x E3 x E4— GRM x E)) 
+F(2 x E3 x (GRM — E3)/(2 x E3 x E4— GRM x E)) + 1n(abs((2 x E8 x E4— 
GRM x E)/(E x (@QRM — 2 x E3)))) x In(GRM/(2 x E3))); 
TERM5:=ZAHL x Z x (F(— (E4— E3)/E3)— F(GRM x (E4— E3)/(2 x E x E4-—GRM 
x E3))+ F(2 x E x (E4— E3)/(2 x E x E4— GRM x E3)) + 1In(abs((2 x E x 
E4— GRM x E8)/(E3 x (@RM — 2 x E)))) x In(GRM/(2 x E))); 
TERM6:=ZAHL x Z x (F(—(GRM — E)/E) — F((GRM — E)/E) + F(2 x (QRM— E)/ 
GRM)+1n(abs(GRM/(2 x E— GRM))) x In(GRM/(2 x E))); 
TERM? :=ZAHL x Z x (F(— (GRM — E3)/E3) — F((GRM — E3)/E3+ F(2 x (GRM — E3)/ 
GRM)-+ In(abs(GRM/(2 x E3 —GRM))) x In(GRM/(2 x E8))); 
TSAI: = TERM1—TERM2+ TERM3+ TERM4— TERM5— TERM6+ TERM7; 
CORR: =exp(TSAI); 
print ALIGNED(5,1),SAMELINE,E,THETA,DE,ALIGNED(3,3),TSAI, 
CORR, DIGITS(6),Z 
end 
input data 
1 
900 
145 
13.1 
938.213 


TSAI-RADIATION-CORRECTION 


ki THETA DE 


900.0 145.0 13.1 


output values 


DELTA CORR Z 
— 0.154 0.857 1 
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Definition of ALGOL 60 


(Published in Numerische Mathematik 4, 420 (1963) 
and Communications of the Association for Computing Machinery 
6, No. 1 (1963)) 


REVISED REPORT ON THE ALGORITHMIC 
LANGUAGE ALGOL 60° 


By 


J. W. Backus, F. L. BAvER, J. GREEN, C. Katz, J. McCartnuy, 
P. Naur, A. J. Pervis, H. RuTISHAUSER, K. SAMELSON, B. VavQuols, 
J. H. WrEa@stTEIn, A. VAN WIJNGAARDEN, M. WoopDGER 


Edited by 
PETER NAUR 


Dedicated to the memory of WILLIAM TURANSKI 
* International Federation for Information Processing 1962. 


SUMMARY 


THE report gives a complete defining description of the international algorithmic 
language ALGOL 60. This is a language suitable for expressing a large class of 
numerical processes in a form sufficiently concise for direct automatic translation 
into the language of programmed automatic computers. 

The introduction contains an account of the preparatory work leading up to 
the final conference, where the language was defined. In addition the notions 
reference language, publication language, and hardware representations are 
explained. 

In the first chapter a survey of the basic constituents and features of the 
language is given, and the formal notation, by which the syntactic structure is 
defined, is explained. 

The second chapter lists all the basic symbols, and the syntactic units known 
as identifiers, numbers, and strings are defined. Further some important notions 
such as quantity and value are defined. 

The third chapter explains the rules for forming expressions and the meaning 
of these expressions. Three different types of expressions exist: arithmetic, 
Boolean (logical), and designational. 

The fourth chapter describes the operational units of the language, known as 
statements. The basic statements are: assignment statements (evaluation of 
a formula), go to statements (explicit break of the sequence of execution of state- 
ments), dummy statements, and procedure statements (call for execution of a 
closed process, defined by a procedure declaration). The formation of more com- 
plex structures, having statement character, is explained. These include: con- 
ditional statements, for statements, compound statements, and blocks. 

In the fifth chapter the units known as declarations, serving for defining per- 
manent properties of the units entering into a process described in the language, 
are defined. 

The report ends with two detailed examples of the use of the language and an 
alphabetic index of definitions. 


INTRODUCTION 
Background 


After the publication*,t of a preliminary report on the algorithmic language 
ALGOL, as prepared at a conference in Zurich in 1958, much interest in the 
ALGOL language developed. 

As a result of an informal meeting held at Mainz in November 1958, about 
forty interested persons from several European countries held an ALGOL 
implementation conference in Copenhagen in February 1959. A “hardware 
group” was formed for working cooperatively right down to the level of the paper 


* “Preliminary Report—International Algebraic Language,” Communs Ass. comput. 
Mach. 1, No. 12 (1958), 8. 

+ “Report on the Algorithmic Language ALGOL by the ACM Committee on Pro- 
gramming Languages and the GAMM Committee on Programming,”’ edited by A. J. 
PERLIS and K. SAMELSON, Numerische Mathematik 1, 41-60, 1959. 
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tape code. This conference also led to the publication by Regnecentralen, Copen- 
hagen, of an Algol Bulletin, edited by PETER NauR, which served as a forum for 
further discussion. During the June 1959 ICIP Conference in Paris several 
meetings, both formal and informal ones, were held. These meetings revealed 
some misunderstandings as to the intent of the group which was primarily re- 
sponsible for the formulation of the language, but at the same time made it clear 
that there exists a wide appreciation of the effort involved. As a result of the 
discussions it was decided to hold an international meeting in January 1960 for 
improving the ALGOL language and preparing a final report. At a European 
ALGOL Conference in Paris in November 1959 which was attended by about 
fifty people, seven European representatives were selected to attend the January 
1960 Conference, and they represent the following organizations: Association 
Francaise de Calcul, British Computer Society, Gesellschaft fiir Angewandte 
Mathematik und Mechanik, and Nederlands Rekenmachine Genootschap. The 
seven representatives held a final preparatory meeting at Mainz in December 
1959. 

Meanwhile, in the United States, anyone who wished to suggest changes or 
corrections to ALGOL was requested to send his comments to the Communications 
of the ACM, where they were published. These comments then became the basis 
of consideration for changes in the ALGOL language. Both the SHARE and USE 
organizations established ALGOL working groups, and both organizations were 
represented on the ACM Committee on Programming Languages. The ACM 
Committee met in Washington in November 1959 and considered all comments on 
ALGOL that had been sent to the Communications of the ACM. Also, seven repre- 
sentatives were selected to attend the January 1960 international conference. 
These seven representatives held a final preparatory meeting in Boston in De- 
cember 1959. 


January 1960 Conference 


The thirteen representatives,* from Denmark, England, France, Germany, 
Holland, Switzerland, and the United States, conferred in Paris from January 
11 to 16, 1960. 

Prior to this meeting a completely new draft report was worked out from the 
preliminary report and the recommendations of the preparatory meetings by 
PETER NAvR, and the Conference adopted this new form as the basis for its report. 
The Conference then proceeded to work for agreement on each item of the report. 
The present report represents the union of the Committee’s concepts and the 
intersection of its agreements. 


* WILLIAM TURANSKI of the American group was killed by an automobile Just prior 
to the January 1960 Conference. 
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April 1962 Conference [Edited by M. WOODGER] 


A meeting of some of the authors of ALGOL 60 was held on April 2-3, 1962, in 
Rome, Italy, through the facilities and courtesy of the International Computation 
Centre. The following were present: 


Authors Advisers Observer 
F. L. BAUER M. Pau W. L. VAN DER POEL 
J. GREEN R. FRANCIOTTI (Chairman, IFIP TC 2.1 
C. Katz P. Z. INGERMAN Working Group 
R. KoGon (representing ALGOL) 
J. W. Backus) 
P. NAUR 
K. SAMELSON G. SEEGMULLER 
J. H. WEGSTEIN R. E. UTMAN 
A. VAN WIJNGAARDEN 
M. WoopGER P. LANDIN 


The purpose of the meeting was to correct known errors in, attempt to eliminate 
apparent ambiguities in, and otherwise clarify the ALGOL 60 Report. Extensions 
to the language were not considered at the meeting. Various proposals for cor- 
rection and clarification that were submitted by interested parties in response 
to the Questionnaire in Algol Bulletin No. 14 were used as a guide. 

This report* constitutes a supplement to the ALGOL 60 Report which should 
resolve a number of difficulties therein. Not all of the questions raised concerning 
the original report could be resolved. Rather than risk hastily drawn conclusions 
on a number of subtle points, which might create new ambiguities, the committee 
decided to report only those points which they unanimously felt could be stated in 
clear and unambiguous fashion. 

Questions concerned with the following areas are left for further consideration 
by Working Group 2.1 of IFIP, in the expectation that current work on advanced 
programming languages will lead to better resolution: 

1. Side effects of functions. 

2. The call by name concept. 

3. own: static or dynamic. 

4, For statement: static or dynamic. 

5. Conflict between specification and declaration. 

The authors of the ALGOL 60 Report present at the Rome Conference, being 
aware of the formation of a Working Group on ALGOL by IFIP, accepted that 
any collective responsibility which they might have with respect to the develop- 
ment, specification, and refinement. of the ALGOL language will from now on 
be transferred to that body. 

This report has been reviewed by IFIP TC 2 on Programming Languages in 
August 1962 and has been approved by the Council of the International Federa- 
tion for Information Processing. 


* Editor's note: The present edition follows the text which was approved by the 
Council of IFIP. Although it is not clear from the Introduction, the present version is 
the original report of the January 1960 Conference modified according to the agree- 
ments reached during the April 1962 Conference. Thus, the report mentioned here is 
incorporated in the present version. The modifications touch the original report in the 
following sections: Changes of text: 1 with footnote; 2.1 footnote; 2.3; 2.7; 3.3.3; 3.3.4.2; 
4.1.3; 4.2.3; 4.2.4; 4.3.4; 4.7.3; 4.7.3.1; 4.7.3.3; 4.7.5.1; 4.7.5.4; 4.7.6; 5; 5.3.3; 5.3.5; 
5.4.3; 5.4.4; 5.4.5. Changes of syntax: 3.4.1; 4.1.1; 4.2.1; 4.5.1. 
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As with the preliminary ALGOL report, three different levels of language 
are recognized, namely a Reference Language, a Publication Language, and 
several Hardware Representations. 


Reference Language 


1. It is the working language of the committee. 

2. It is the defining language. 

3. The characters are determined by ease of mutual understanding and not 
by any computer limitations, coder’s notation, or pure mathematical notation. 

4. It is the basic reference and guide for compiler builders. 

5. It is the guide for all hardware representations. 

6. It is the guide for transliterating from publication language to any locally 
appropriate hardware representations. 

7. The main publications of the ALGOL language itself will use the reference 
representation. 


Publication Language 


1. The publication language admits variations of the reference language accord- 
ing to usage of printing and handwriting (e.g. subscripts, spaces, exponents, 
Greek letters). 

2. It is used for stating and communicating processes. 

3. The characters to be used may be different in different countries, but 
univocal correspondence with reference representation must be secured. 


Hardware Representations 


1. Each one of these is a condensation of the reference language enforced by 
the limited number of characters on standard input equipment. 

2. Each one of these uses the character set of a particular computer and is the 
language accepted by a translator for that computer. 

3. Each one of these must be accompanied by a special set of rules for trans- 
literating from publication or reference language. 

For transliteration between the reference language and a language suitable 
for publications, among others, the following rules are recommended. 


Reference language Publication language 

Subscript brackets [] Lowering of the line between the brackets and 
removal of the brackets. 

Exponentiation + Raising of the exponent. 

Parentheses () Any form of parentheses, brackets, braces. 

Basis of ten 10 Raising of the ten and of the following integral 
number, inserting of the intended multiplication 
sign. 


DESCRIPTION OF THE REFERENCE LANGUAGE 


Was sich Uberhaupt sagen 1a6t, 14Bt sich klar sagen; und wovon man 
nicht reden kann, dariiber muB man schweigen. LupwiG WITTGENSTEIN 


1. Structure of the Language 


As stated in the introduction, the algorithmic language has three different 
kinds of representations—reference, hardware, and publication—and the develop- 
ment described in the sequel is in terms of the reference representation. This 
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means that all objects defined within the language are represented by a given set 
of symbcls—and it is only in the choice of symbols that the other two represen- 
tations may differ. Structure and content must be the same for all representa- 
tions. 

The purpose of the algorithmic language is to describe computational processes. 
The basic concept used for the description of calculating rules is the well-known 
arithmetic expression containing as constituents numbers, variables, and func- 
tions. From such expressions are compounded, by applying rules of arithmetic 
composition, self-contained units of the language—explicit formulae—called 
assignment statements. 

To show the flow of computational processes, certain non-arithmetic state- 
ments and statement clauses are added which may describe, e.g. alternatives or 
iterative repetitions of computing statements. Since it is necessary for the func- 
tion of these statements that one statement refers to another, statements may be 
provided with labels. A sequence of statements may be enclosed between the 
statement brackets begin and end to form a compound statement. 

Statements are supported by declarations which are not themselves computing 
instructions, but inform the translator of the existence and certain properties 
of objects appearing in statements, such as the class of numbers taken on as 
values by a variable, the dimension of an array of numbers, or even the set of 
rules defining a function. A sequence of declarations followed by a sequence of 
statements and enclosed between begin and end constitutes a block. Every 
declaration appears in a block in this way and is valid only for that block. 

A program is a block or compound statement which is not contained within 
another statement and which makes no use of other statements not contained 
within it. 

In the sequel the syntax and semantics of the language will be given.* 


1.1 Formalism for Syntactic Description 


The syntax will be described with the aid of metalinguistic formulae.t Their 
interpretation is best explained by an example: 


<ab>::=(| [| <ab>( | <ab> <d> 


Sequences of characters enclosed in the bracket <> represent metalinguistic 
variables whose values are sequences of symbols. The marks ::= and | (the 
latter with the meaning of or) are metalinguistic connectives. Any mark in a 
formula, which is not a variable or a connective, denotes itself (or the class of 
marks which are similar to it). Juxtaposition of marks and/or variables in a 
formula signifies juxtaposition of the sequences denoted. Thus, the formula above 
gives a recursive rule for the formation of values of the variable <ab». It indicates 
that <ab> may have the value ( or [ or that given some legitimate value of 
<ab>, another may be formed by following it with the character ( or by following 


* Whenever the precision of arithmetic is stated as being in general not specified, 
or the outcome of a certain process is left undefined or said to be undefined, this is to 
be interpreted in the sense that a program only fully defines a computational process if 
the accompanying information specifies the precision assumed, the kind of arithmetic 
assumed, and the course of action to be taken in all such cases as may occur during the 
execution of the computation. 

t Cf. J. W. Backus, “The syntax and semantics of the proposed international 
algebraic language of the Ziirich ACM—GAMM conference.’ ICIP Paris, June 1959. 
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it with some value of the variable ¢d>. If the values of <d> are the decimal digits, 
some values of (ab> are: 


[(((2(37( 
(12345 ( 


((( 
[86 


In order to facilitate the study, the symbols used for distinguishing the metalin- 
guistic variables (i.e. the sequences of characters appearing within the brackets 
<> as ab in the above example) have been chosen to be words describing approxi- 
mately the nature of the corresponding variable. Where words which have 
appeared in this manner are used elsewhere in the text they will refer to the 
corresponding syntactic definition. In addition, some formulae have been given 
in more than one place. 
Definition: 
<empty>::= 
(i.e. the null string of symbols). 


2. Basic Symbols, I[dentifiers, Numbers, and Strings. 
Basic Concepts 
The reference language is built up from the following basic symbols: 


<basic symbol) ::=<letter> | <digit> | (logical value) | <delimiter) 


2.1 Letters 
cletver)::—al eld fla is|et}m opal ola 
A|B|C|DIE|F|G|A|T|J|K|L|M|N|O| P[Q|RS|T|U|V|W|X|¥|Z 

This alphabet may arbitrarily be restricted, or extended with any other distinc- 
tive character (i.e. character not coinciding with any digit, logical value, or 
delimiter). 

Letters do not have individual meaning. They are used for forming identifiers 
and strings* (cf. Sections 2.4. Identifiers, 2.6. Strings). 

2.2.1. Digits. 

<digit> ::=0|1|2|3|4|5|6|7|8|9 
Digits are used for forming numbers, identifiers, and strings. 


2.2.2. Logical values. 
<logical value>::= true | false 


The logical values have a fixed obvious meaning. 


2.3. Delimiters 


(delimiter>::= operator) | (separator) | (bracket | <declarator) | <specificator) 
(operator) ::=<arithmetic operator) | <relational operator) | (logical operator) | 
<sequential operator)» 


* It should be particularly noted that throughout the reference language under- 
lining [in typewritten copy; bold face type in printed copy—Ed.] is used for defining 
independent basic symbols (see sections 2.2.2 and 2.3). These are understood to have 
no relation to the individual letters of which they are composed. Within the present 
report [not included headings----Ed.] underlining [bold face—Ed.] will be used for no 
other purposes. 
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<arithmetic operator>::= + |— |x |/| = |* 
(relational operator>::= < |< |= |2|> |+ 
<logical operator>::= =|>|[V|A|7 


| 
<sequential operator>::= go to | if | then | else | for | dot 
<separator>::= ,|.|10|:|;|:=|L | step| until | while | comment 
<bracket>::= (|)|{]]|‘|’ | begin | end 
<declarator>::= own | Boolean | integer | real | array | switch | procedure 
<specificator)::= string | label | value 


Delimiters have a fixed meaning which for the most part is obvious or else will 
be given at the appropriate place in the sequel. 

Typographical features such as blank space or change to a new line have no 
significance in the reference language. They may, however, be used freely for 
facilitating reading. 

For the purpose of including text among the symbols of a program the following 
‘“‘comment”’ conventions hold: 


The sequence of basic symbols: is equivalent to 
; comment <any sequence not containing;); ; 
begin comment <any sequence not containing;); begin 


end <any sequence not containing end or; or else» end 


By equivalence is here meant that any of the three structures shown in the left- 
hand column may be replaced, in any occurence outside of strings, by the symbol 
shown on the same line in the right-hand column without any effect on the action 
of the program. It is further understood that the comment structure encountered 
first in the text when reading from left to right has precedence in being replaced 
over later structures contained in the sequence. 


2.4. Identifiers 
2.4.1. Syntax. 
<identifier> ::=<letter> | identifier) <letter> | <identifier) <digit> 


2.4.2. Hxamples. q 
Soup 
Vi7a 
a3d4kTMNs 
MARILYN 


2.4.3. Semantics. Identifiers have no inherent meaning, but serve for the iden- 
tification of simple variables, arrays, labels, switches, and procedures. They may 
be chosen freely (cf., however, Section 3.2.4. Standard Functions). 

The same identifier cannot be used to denote two different quantities except 
when these quantities have disjoint scopes as defined by the declarations of the 
program (cf. Section 2.7. Quantities, Kinds, and Scopes and Section 5. Declara- 
tions). 


2.5. Numbers 
2.5.1. Syntax. 
<unsigned integer) ::=<digit> | <unsigned integer) <digit> 
<integer> ::=<unsigned integer) | +- unsigned integer) | — <unsigned integer) 


t do is used in for statements. It has no relation whatsoever to the do of the pre- 
liminary report, which is not included in ALGOL 60. 
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<decimal fraction) ::=.<Cunsigned integer> 

<exponent part» ::=10<integer> 

<decimal number) ::=<unsigned integer) | (decimal fraction) | 
unsigned integer> <decimal fraction) 

<unsigned number) ::=<decimal number) | <exponent part) | 
«decimal number) <exponent part» 


<number)::=<unsigned number) | + (unsigned number) | — <unsigned number)» 
2.5.2. Hramples. 0 — 200.084 — 08319 — 02 
177 + 07.43108 —10/ 
0084 9.3419+-10 19 —4 
+ 0.7300 210—4 +1i0+9 


2.5.3. Semantics. Decimal numbers have their conventional meaning. The ex- 
ponent part is a scale factor expressed as an integral power of 10. 


2.5.4. Types. Integers are of type integer. All other numbers are of type real 
(cf. Section 5.1 Type Declarations). 


2.6. Strings 
2.6.1. Syntax. 
<proper string>::—<any sequence of basic symbols not containing ‘or’ | 
<empty> 
<open string>::=<proper string) | ‘<open string»’ | open string> (open string» 
<string> ::=‘<open string»’ 


2.6.2. Examples. ‘ok,, —- ([[tA = /ere” 
‘.. This ist aL ‘string’ ’ 


2.6.3. Semantics. In order to enable the language to handle arbitrary sequences 
of basic symbols the string quotes ‘and’ are introduced. The symbol LJ denotes 
a space. It has no significance outside strings. 

Strings are used as actual parameters of procedures (cf. Sections 3.2. Function 
Designators and 4.7. Procedure Statements). 


2.7. Quantities, Kinds, and Scopes 


The following kinds of quantities are distinguished: simple variables, arrays, 
labels, switches, and procedures. 

The scope of a quantity is the set of statements and expressions in which the 
declaration of the identifier associated with that quantity is valid. For labels see 
Section 4.1.3. 


2.8. Values and Types 


A value is an ordered set of numbers (special case: a single number), an ordered 
set of logical values (special case: a single logical value), or a label. 

Certain of the syntactic units are said to possess values. These values will in 
general change during the execution of the program. The values of expressions 
and their constituents are defined in Section 3. The value of an array identifier 
is the ordered set of values of the corresponding array of subscripted variables 
(cf. Section 3.1.4.1.) 

The various “‘types’’ (integer, real, Boolean) basically denote properties of 
values. The types associated with syntactic units refer to the values of these 
units. 
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3. Expressions 


In the language the primary constituents of the programs describing algorith- 
mic processes are arithmetic, Boolean, and designational expressions. Consti- 
tuents of these expressions, except for certain delimiters, are logical values, 
numbers, variables, function designators, and elementary arithmetic, relational, 
logical, and sequential operators. Since the syntactic definition of both variables 
and function designators contains expressions, the definition of expressions, and 
their constituents, is necessarily recursive. 


<expression) ::= (arithmetic expressions) | «Boolean expression) | 
<designational expression > 


3.1. Variables 
3.1.1. Syntax. 
<variable identifier : : = <identifier> 
<simple variable) ::=<variable identifier) 
<subscript expression) ::=<arithmetic expression)» 
<subscript list ::=<subscript expression) | «subscript list>,(subscript expression» 
<array identifier) ::=<identifier> 
<subscripted variable» ::=<array identifier>[<subscript list) ] 
«variable ::=<simple variable» | <subscripted variable) 


3.1.2. Examples. epsilon 
det A 


a[sin(n x pt/2),Q[3,n,4]] 

3.1.3. Semantics. A variable is a designation given to a single value. This value 
may be used in expressions for forming other values and may be changed at will 
by means of assignment statements (Section 4.2). The type of the value of a 
particular variable is defined in the declaration for the variable itself (cf. Section 
5.1. Type Declarations) or for the corresponding array identifier (cf. Section 5.2. 
Array Declarations). 


3.1.4. Subscripts. 3.1.4.1. Subscripted variables designate values which are 
components of multidimensional arrays (cf. Section 5.2. Array Declarations). 
Each arithmetic expression of the subscript list occupies one subscript position of 
the subscripted variable and is called a subscript. The complete list of subscripts 
is enclosed in the subscript brackets []. The array component referred to by a 
subscripted variable is specified by the actual numerical value of its subscripts 
(cf. Section 3.3. Arithmetic Expressions). 


3.1.4.2. Each subscript position acts like a variable of type integer and the 
evaluation of the subscript is understood to be equivalent to an assignment to 
this fictitious variable (cf. Section 4.2.4.) The value of the subscripted variable 
is defined only if the value of the subscript expression is within the subscript 
bounds of the array (cf. Section 5.2. Array Declarations). 


3.2. Function Designators 


3.2.1. Syntax. 
<procedure identifier) : : = <identifier> 
<actual parameter) ::= <string> | <expression) | «array identifier) | 


<switch identifier) | «procedure identifier) 
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<letter string>::=<letter> | <letter string) <letter> 
<parameter delimiter) ::=, | ) <letter string) :( 
<actual parameter list>::=<actual parameter) | 

<actual parameter list> <parameter delimiter> <actual parameter) 
<actual parameter part>::=<empty> | (<actual parameter list) 
<function designator) ::=<procedure identifier) <actual parameter part» 


3.2.2. Examples. sin(a — b) 
J(v -+ s,n) 
R 
S(s — 5d) Temperature: (T) Pressure: (P) 
Compile (‘:=’) Stack: (Q) 


3.2.3. Semantics. Function designators define single numerical or logical values 
which result through the application of given sets of rules defined by a procedure 
declaration (cf. Section 5.4. Procedure Declarations) to fixed sets of actual para- 
meters. The rules governing specification of actual parameters are given in 
Section 4.7. Procedure Statements. Not every procedure declaration defines the 
value of a function designator. 


3.2.4. Standard functions. Certain identifiers should be reserved for the stan- 
dard functions of analysis, which will be expressed as procedures. It is recom- 
mended that this reserved list should contain: 


abs (E) for the modulus (absolute value) of the value of the expression E 
sign (E) for the sign of the value of E(+ 1 for E>0, 0 for E=0, —1 for K<90) 
sqrt (EB) for the square root of the value of E 


sin (E) for the sine of the value of E 

cos (F) for the cosine of the value of E 

arctan (E) for the principal value of the arctangent of the value of I: 
In (E) for the natural logarithm of the value of E 

exp (BK) for the exponential function of the value of E (e£) 


These functions are all understood to operate indifferently on arguments both 
of type real and integer. They will all yield values of t:, pe real, except for sign (E) 
which will have values of type integer. In a particular representation these 
functions may be available without explicit declarations (cf. Section 5. Declara- 
tions). 


3.2.5. Transfer functions. It is understood that transfer functions between any 
pair of quantities and expressions may be defined. Among the standard functions 
it is recommended that there be one, namely 


entier (Ks), 


which “‘transfers” an expression of real type to one of integer type, and assigns 
to it the value which is the largest integer not greater than the value of E. 


3.3 Arithmetic Expressions 
3.3.1. Syntax. 
<adding operator>::= -+ | — 
‘multiplying operator>::= x |/| + 
(primary) ::=<unsigned number) | <variable> 
(<arithmetic expression >) 
<factor>::— (primary) | <factor> +<primary> 
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<term)::=<factor> | <term)> <multiplying operator) <factor» 

<simple arithmetic expression) ::—=<term) | adding operator) <term) | 
<simple arithmetic expression» (adding operator) <term)» 

<if clause::=if <Boolean expression» then 

<arithmetic expression) ::—=<simple arithmetic expression) | 
<if clause> <simple arithmetic expression» else <arithmetic expression» 


3.3.2. Examples. Primaries: 
7.39419 — 8 
sum 
wlt + 2,8] 
cos(y + z xX 3) 
(a — 3/y + vut 8) 


Factors: 

omega 

sum + cos(y +- 2 X 3) 

7.39410 — 8+ wt 4- 2,8] t (a — 3/y 4. veut 8) 
‘Terms: 
U 


omega X sum* cos(y -+ 2 X 3)/7.39419 — 84 wli 4- 2,8]4 (a — 3/y 4- vut $) 
Simple arithmetic expression : 


U — Yu + omega x sum‘ cos(y + z x 3)/ 
7.389419 — 84 w[t + 2,8]* (a — 3/y + vut 8) 


Arithmetic expressions: 
wxu— QS + Cu)+ 2 
ifq>OthenS+ 3x Q/Aelsee2 x Si3xgq 
ifa <Othen U + V else ifa x b > 17 then U/V else if k+ y then V/U else 0 
a X sin(omega X t) 
0.571012 X aLN x (N — 1)/2,0] 
(A x arctan(y) + Z)t (7 + Q) 
if q then n — / else n 
if a < 0 then 4/B else if b = 0 then B/A else z 


3.3.3. Semantics. An arithmetic expression is a rule for computing a numerical 
value. In case of simple arithmetic expressions this value is obtained by executing 
the indicated arithmetic operations on the actual numerical values of the pri- 
maries of the expression, as explained in detail in Section 3.3.4. below. The 
actual numerical value of a primary is obvious in the case of numbers. For 
variables it is the current value (assigned last in the dynamic sense), and for 
function designators it is the value arising from the computing rules defining 
the procedure (cf. Section 5.4.4. Values of Function Designators) when applied 
to the current values of the procedure parameters given in the expression. 
Finally, for arithmetic expressions enclosed in parentheses the value must 
through a recursive analysis be expressed in terms of the values of primaries of the 
other three kinds. 

In the more general arithmetic expressions, which include if clauses, one out 
of several simple arithmetic expressions is selected on the basis of the actual 
values of the Boolean expressions (cf. Section 3.4. Boolean Expressions). This 
selection is made as follows: The Boolean expressions of the if clauses are eva- 
luated one by one in sequence from left to right until one having the value true 
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is found. The value of the arithmetic expression is then the value of the first 
arithmetic expression following this Boolean (the largest arithmetic expression 
found in this position is understood). The construction: 


else <simple arithmetic expression> 


is equivalent to the construction: 
else if true then <simple arithmetic expression) 


3.3.4. Operators and types. Apart from the Boolean expressions of if clauses, 
the constituents of simple arithmetic expressions must be of types real or integer 
(cf. Section 5.1. Type Declarations). The meaning of the basic operators and the 
types of the expressions to which they lead are given by the following rules: 

3.3.4.1. The operators +, —, and x have the conventional meaning (addition, 
subtraction, and multiplication). The type of the expression will be integer if 
both of the operands are of integer type, otherwise real. 


3.3.4.2. The operations <term)/<factor>) and <term> — <factor> both denote 
division, to be understood as a multiplication of the term by the reciprocal of 
the factor with due regard to the rules of precedence (cf. Section 3.3.5). Thus, for 


example 
a/b x 7/(p — q) X v/8 
means 
((((a x (O-')) X 7) X ((p — q)"1)) X v) X (87) 

The operator / is defined for all four combinations of types real and integer 
and will yield results of real type in any case. The operator — is defined only 
for two operands both of type integer and will yield a result of type integer, 
mathematically defined as follows: 


a — 6 = sign(a/b) X entier(abs(a/b)) 
(cf. Sections 3.2.4 and 3.2.5). 


3.3.4.3. The operation <factor> + <primary> denotes exponentiation, where the 
factor is the base and the primary is the exponent. Thus, for example, 


2tntk means (2")* 
while 

2t(ntmy means 2”? 
Writing « for a number of integer type, r for a number of real type, and a for 
a number of either integer or real type, the result is given by the following rules: 


asi If¢ >0: axax... X a (i times), of the same type as a. 
If~=0, ifa+0: 1, of the same type asa. 
ifa = 0: undefined. 
If7 <0, ifa+0: I/(axax...x a) (the denominator has — 1 
factors), of type real. 
ifa = 0: undefined. 


atr Ifa >0: exp(r x In(a)), of type real. 
Ifa=0, ifr > 0: 0.0, of type real. 
ifr < 0: undefined. 
Ifa <0: always undefined. 


3.3.5. Precedence of operators. The sequence of operations within one expres- 
sion is generally from left to right, with the following additional rules: 
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3.3.5.1. According to the syntax given in Section 3.3.1, the following rules of 
precedence hold: 


first: 
second: x/— 
third: + — 


3.3.5.2. The expression between a left parenthesis and the matching right paren- 
thesis is evaluated by itself and this value is used in subsequent calculations. 
Consequently the desired order of execution of operations within an expression 
can always be arranged by appropriate positioning of parentheses. 


3.3.6. Arithmetics of real quantities. Numbers and variables of type real must 
be interpreted in the sense of numerical analysis, i.e. as entities defined inherently 
with only a finite accuracy. Similarly, the possibility of the occurrence of a 
finite deviation from the mathematically defined result in any arithmetic expres- 
sion is explicitly understood. No exact arithmetic will be specified, however, 
and it is indeed understood that different hardware representations may evaluate 
arithmetic expressions differently. The control of the possible consequences of 
such differences must be carried out by the methods of numerical analysis. 
This control must be considered a part of the process to be described, and will 
therefore be expressed in terms of the language itself. 


3.4. Boolean Expressions 
3.4.1. Syntax. 
<relational operator>::= <|<|=|2|>|+ 
<relational> ::=<simple arithmetic expression» <relational operator> 
<simple arithmetic expression)» 
<Boolean primary) ::=<logical value» | <variable> | <function designator) | 
<relation> | «Boolean expression) | 
«Boolean secondary>::=<Boolean primary> | 7 «Boolean primary) 
«Boolean factor>::=<Boolean secondary» | 
«Boolean factor> A <Boolean secondary» 
«Boolean term) ::=<Boolean factor) | «Boolean term) V <Boolean factor) 
<implication> ::=<Boolean term) | <implication>) > <Boolean term) 
<simple Boolean: :=<implication> | <simple Boolean>= <implication> 


<Boolean expression) ::—<simple Boolean) | 
<if clause> <simple Boolean) else «Boolean expression» 
3.4.2. Hxamples. x = — 2 
Y> VVz<4q 
a+b>—s5Az—d>qf2 
pAqVazty 


g= 7aAbA /cVdVerv/f 
ifk < 1 thens > welseh <c 
if if if a then b else c then d else f then g elseh < ik 


3.4.3. Semantics. A Boolean expression is a rule for computing a logical value. 
The principles of evaluation are entirely analogous to those given for arithmetic 
expressions in section 3.3.3. 


3.4.4. Types. Variables and function designators entered as Boolean primaries 
must be declared Boolean (cf. Section 5.1. Type Declarations and Section 5.4.4 
Values of Function Designators). 
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3.4.5. The Operators. Relations take on the value true whenever the correspond- 
ing relation is satisfied for the expressions involved, otherwise false. 

The meaning of the logical operators / (not), A (and), V (or), > (implies), 
and = (equivalent), is given by the following function table: 





false true 
true true 
true false 
false true 
true true 
true true 
false true 





3.4.6. Precedence of operators. The sequence of operations within one expres- 
sion is generally from left to right, with the following additional rules: 


3.4.6.1. According to the syntax given in Section 3.4.1 the following rules of 
precedence hold: 


first: arithmetic expressions according to Section 3.3.5. 
second: <<=2 > + 

third: 7/7 

fourth: <A 

fifth : V 

sixth: D> 

seventh: = 


3.4.6.2. The use of parentheses will be interpreted in the sense given in Section 
3.3.5.2. 


3.5. Designational Expressions 


3.5.1. Syntax. 
<label> ::==<identifier> | unsigned integer> 
<switch identifier : : = <identifier> 
<switch designator) ::—<switch identifier> [<subscript expression) ] 
<simple designational expression) ::=<label> | «switch designator) | 
(<designational expression) 
<designational expression) ::=<simple designational expression) | 
<if clause> <simple designational expression» else <designational expression) 


3.5.2. Hxamples. 17 
pg 
Choose[n — 1] 
Tounfif y < 0 then N else N + 1] 
if 4b <c then 77 else g[if w < 0 then 2 else n] 


3.5.3. Semantics. A designational expression is a rule for obtaining a label of 
a statement (cf. Section 4. Statements). Again the principle of the evaluation 
is entirely analogous to that of arithmetic expressions (Section 3.3.3). In the 
general case the Boolean expressions of the if clauses will select a simple designa- 
tional expression. If this is a label the desired result is already found. A switch 
designator refers to the corresponding switch declaration (cf. Section 5.3. Switch 
Declarations) and by the actual numerical value of its subscript expression 
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selects one of the designational expressions listed in the switch declaration by 
counting these from left to right. Since the designational expression thus selected 
may again be a switch designator this evaluation is obviously a recursive process. 


3.5.4. The subscript expression. The evaluation of the subscript expression is 
analogous to that of subscripted variables (cf. Section 3.1.4.2). The value of a 
switch designator is defined only if the subscript expression assumes one of the 
positive values J, 2, 3,...,m, where n is the number of entries in the switch list. 


3.5.5. Unsigned integers as labels. Unsigned integers used as labels have the 
property that leading zeros do not affect their meaning, c.g. 00217 denotes the 
same label as 217. 


4. Statements 


The units of operation within the language are called statements. They will 
normally be executed consecutively as written. However, this sequence of opera- 
tions may be broken by go to statements, which define their sucessor explicitly, 
and shortened by conditional statements, which may cause certain statements 
to be skipped. 

In order to make it possible to define a specific dynamic succession, statements 
may be provided with labels. 

Since sequences of statements may be grouped together into compound state- 
ments and blocks the definition of statement must necessarily be recursive. 
Also since declarations, described in Section 5, enter fundamentally into the 
syntactic structure, the syntactic definition of statements must suppose declara- 
tions to be already defined. 


4.1. Compound Statements and Blocks 
4.1.1. Syntaz. 


<unlabelled basic statement» ::=<assignment statement) | <go to statement) | 
<dummy statement) | <procedure statement) 
<basic statement): :=<unlabelled basic statement) | <label>:<basic statement» 
<unconditional statement ::=<basic statement) | 
<compound statement) | <block> 
<statement> ::= unconditional statement) | (conditional statement) | 
<for statement» 
<compound tail>::=<statement> end | (statement) ;<compound tail) 
<block head) ::= begin <declaration> | <block head) ;<declaration> 
<unlabelled compound) ::= begin <compound tail> 
<unlabelled block) ::=<block head>:<compound tail> 
<compound statement> ::=<unlabelled compound) | 
<label> :<compound statement» 
<block> ::=<unlabelled block) | <label> :<block> 
<program) ::=<block> | <compound statement» 


This syntax may be illustrated as follows: Denoting arbitrary statements, de- 
clarations, and labels by the letters 8, D, and L, respectively, the basic syntactic 
units take the forms: 
Compound statement: 
L: L:... begin S;8S;...8S;8 end 
Block: 
L: L:... begin D; D;..D;8;8;...8;58 end 
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It should be kept in mind that each of the statements S may again be a complete 
compound statement or block. 


4.1.2. Examples. Basic statements: 
a:=p+q 
go to Naples 
Start : Continue: W: = 7.993 


Compound statement: 
begin x: = 0; for y: = 1 step J until n doz: = x + Al[y]; 
if x > q then go to STOP else if x > w — 2 then go to S; 
Aw: St: W: = x + bob end 


Block: 
Q: begin integer 2, k; real w; 
for 7: = 1 step 7 until m do 
for k: = 2-+ 1 step 7 until mn do 
begin w: = A[?z,k]; 
A[i,k]: = A[k,7]; 
A[k,i]: = wend fori andk 
end block Q 


4.1.3. Semantics. Every block automatically introduces a new level of nomen- 
clature. This is realized as follows: Any identifier occurring within the block 
may through a suitable declaration (cf. Section 5. Declarations) be specified to 
be local to the block in question. This means (a) that the entity represented 
by this identifier inside the block has no existence outside it, and (6) that any 
entity represented by this identifier outside the block is completely inaccessible 
inside the block. 

Identifiers (except those representing labels) occurring within a block and not 
being declared to this block will be non-local to it, i.e. will represent the same 
entity inside the block and in the level immediately outside it. A label separated 
by a colon from a statement, i.e. labelling that statement, behaves as though 
declared in the head of the smallest embracing block, i.e. the smallest block whose 
brackets begin and end enclose that statement. In this context a procedure body 
must be considered as if it were enclosed by begin and end and treated as a block. 

Since a statement of a block may again itself be a block, the concepts local 
and non-local to a block must be understood recursively. Thus, an identifier 
which is non-local to a block A may or may not be non-local to the block B in 
which A is one statement. 


4.2. Assignment Statements 
4.2.1. Syntax. 
<left part>::=<variable>:= | <procedure identifier) : = 
<left part list>::=<left part» | <left part list) <left part) 
<assignment statement) ::=<left part list> «arithmetic expression) | 
<left part list> «Boolean expression) 


4.2.2. Examples. s: = p[0): =n: =n+14+. 
ni=n+l1 
A:= BJC—v—-@qxS8 
S[v,k + 2]: = 3 — arctan(s X zeta) 
V:=Q>YAZ 
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4.2.3. Semantics. Assignment statements serve for assigning the value of an 
expression to one or several variables or procedure identifiers. Assignment to 
a procedure identifier may only occur within the body of a procedure defining 
the value of a function designator (cf. Section 5.4.4). The process will in the 
general case be understood to take place in three steps as follows: 


4.2.3.1. Any subscript expressions occurring in the left part variables are evalu- 
ated in sequence from left to right. 


4.2.3.2. The expression of the statement is evaluated. 


4.2.3.3. The value of the expression is assigned to all the left part variables, 
with any subscript expressions having values as evaluated in step 4.2.3.1. 


4.2.4. Types. The type associated with all variables and procedure identifiers 
of a left part list must be the same. If this type is Boolean the expression must 
likewise be Boolean. If the type is real or integer the expression must be arith- 
metic. If the type of the arithmetic expression differs from that associated 
with the variables and procedure identifiers appropriate transfer functions are 
understood to be automatically invoked. For transfer from real to integer 
type the transfer function is understood to yield a result equivalent to 


entier(E + 0.5) 


where E is the value of the expression. The type associated with a procedure 
identifier is given by the declarator which appears as the first symbol of the 
corresponding procedure declaration (cf. Section 5.4.4). 


4.3. Go to Statements 
4.3.1. Syntax. 
<go to statement>::=go to <designational expression> 


4.3.2. Examples. go to 8 
go to exzt[n + 1] 
go to T'own[if y < 0 then WN else N 4- 7] 
go to if 4b <c then 77 else g[if w < 0 then 2 else 7] 


4.3.3. Semantics. A go to statement interrupts the normal sequence of opera- 
tions, defined by the write-up of statements, by defining its successor explicitly by 
the value of a designational expression. Thus, the next statement to be executed 
will be the one having this value as its labe! 


4.3.4. Restriction. Since labels are inherently local, no go to statement can lead 
from outside into a block. A go to statement may, however, lead from outside 
into a compound statement. 


4.3.5. Go to an undefined switch designator. A go to statement is equivalent 
to a dummy statement if the designational expression is a switch designator 
whose value is undefined. 


4.4. Dummy Statements 
4.4.1. Syntax. 
<dummy statement) ::=<empty> 
4.4.2. Hxamples. 
LD: 
begin ....;John: end 
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4.4.3. Semantics. A dummy statement executes no operation. It may serve to 
place a label. 


4.5. Conditional Statements 


4.5.1. Syntax. 
<if clause>::=if(Boolean expression)» then | 
<unconditional statement) ::—<basic statement> | (compound statement) | 
<block> 
<if statement>::=<if clause> «unconditional statement> 


<conditional statement) ::—<if statement) | <if statement) else (statement) | 
<if clause») <for statement) | <label> :<conditional statement» 


4.5.2. Examples. ifx > Othenn: =n-+ 1 
ife > uthen V: q: -= n+ melse goto R 
ifs <O0V P < Qthen AA: begin if g < v thena: = v/s 
else y: = 2 x a end else if v > s then 
a: = vU— 
else if» > s — 1 then goto S 


4.5.3. Semantics. Conditional statements cause cértain statements to be execu- 
ted or skipped depending on the running values of specified Boolean expressions. 


4.5.3.1. If statement. The unconditional statement of an if statement will be 
executed if the Boolean expression of the if clause is true. Otherwise it will be 
skipped and the operation will be continued with the next statement. 


4.5.3.2. Conditional statement. According to the syntax two different forms of 
conditional statements are possible. These may be illustrated as follows: 


if Bl then S1 else if B2 then S2 else S3; S4 


and 


if 131 then S1 else if B2 then S2 else if B3 then S3; S4 


Here Bl to B3 are Boolean expressions, while S1 to 83 are unconditional state- 
ments. S4 is the statement following the complete conditional statement. 

The execution of a conditional statement may be described as follows: The 
}30olean expressions of the if clauses are evaluated one after the other in sequence 
from left to right until one yielding the value true is found. Then the uncondi- 
tional statement following this Boolean is executed. Unless this statement de- 
fines its successor explicitly the next statement to be executed will be S4, i.e. 
the statement following the complete conditional statement. Thus the effect 
of the delimiter else may be described by saying that it defines the successor of 
the statement it follows to be the statement following the complete conditional 
statement. 

The construction 


else <unconditional statement» 
is equivalent to 
else if true then «unconditional statement)» 


If none of the Boolean expressions of the if clauses is true the effect of the 
whole conditional statement will be equivalent to that of a dummy statement. 
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For further explanation the following picture may be useful: 


rr es ee rr ee ee eee 


Y 


BI false B2 false 


4.5.4. Go to into a conditional statement. The effect of a go to statement leading 
into a conditional statement follows directly from the above explanation of the 
effect of else. 


4.6. For Statements 
4.6.1. Syntax. 


<for list element) ::=<arithmetic expression) | 
<arithmetic expression) step arithmetic expression) until 
<arithmetic expression) | 
<arithmetic expression» while < Boolean expression» 
<for list>::=<for list element) | <for list), <for list. element> 
<for clause>::=for <variable>:=<for list) do 
<for statement>::—=<for clause> <statement> | 
<label> :<for statement» 


4.6.2. Examples. for q: = 1 step s until n do A[q]: = Blq] 
fork: = 1,V1 x 2 while V7 < N do 
forj: = I + G,L,1 step 7 until V,C + Ddo A[k,j7]: = 
B[k,j] 


4.6.3. Semantics. A for clause causes the statement 8 which it precedes to be 
repeatedly executed zero or more times. In addition, it performs a sequence of 
assignments to its controlled variable. ‘The process may be visualized by means 
of the following picture: 


ce i ee 


a me a ee ee a oe 


for list exhausted 


In this picture the word initialize means: perform the first assignment of the for 
clause. Advance means: perform the next assignment of the for clause. Test 
determines if the last assignment has been done. If so, the execution continues 
with the successor of the for statement. If not, the statement following the for 
clause is executed. 


4.6.4. The for list elements. The for list gives a rule for obtaining the values 
which are consecutively assigned to the controlled variable. This sequence of 
values is obtained from the for list elements by taking these one by one in the 
order in which they are written. The sequence of values generated by each of 
the three species of for list elements and the corresponding execution of the state- 
ment S are given by the following rules: 


4.6.4.1. Arithmetic expression. ‘This element gives rise to one value, namely 
the value of the given arithmetic expression as calculated immediately before 
the corresponding execution of the statement S. 
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4.6.4.2. Step-until-element. An element of the form A step B until C, where A, 
LB, and C are arithmetic expressions, gives rise to an execution which may be 
described most concisely in terms of additional ALGOL statements as follows: 


:= A; 
L1: if(V — C) x sign(B) > 0 then go to Element exhausted ; 
Statement 8S; 
V:=V+AsB; 
go to Li; 


where V is the controlled variable of the for clause and Element exhausted points 
to the evaluation according to the next element in the for list, or if the step- 
until-element is the last of the list, to the next statement in the program. 


4.6.4.3. While-element. The execution governed by a for list element of the 
form E while F, where E is an arithmetic and F a Boolean expression, is most 
concisely described in terms of additional ALGOL statements as follows: 
L3:V:=E; 
if 7 F then go to Element exhausted ; 
Statement S; 
go to L3; 


where the notation is the same as in 4.6.4.2 above. 


4.6.5. The value of the controlled variable wpon exit. Upon exit out of the state- 
ment S (supposed to be compound) through a go to statement the value of the 
controlled variable will be the same as it was immediately preceding the execution 
of the go to statement. 

If the exit is due to exhaustion of the for list, on the other hand, the value of 
the controlled variable is undefined after the exit. 


4.6.6. Go to leading into a for statement. The effect of a go to statement, out- 
side a for statement, which refers to a label within the for statement, is unde- 


fined. 


4.7. Procedure Statements 

4.7.1. Syntaz. 

<actual parameter) ::— <string> | expression) | (array identifier) | 
<switch identifier> | <procedure identifier> 

<letter string» ::—=<letter> | (string letter) <letter> 

<parameter delimiter>::=, | ) <letter string) :( 

<actual parameter list>::—<actual parameter) | 
<actual parameter list> <parameter delimiter) (actual parameter) 

<actual parameter part>::=<empty> | ( «actual parameter list) ) 

<procedure statement ::= (procedure identifier) (actual parameter part) 


4.7.2. Examples. Spur (A) Order: (7) Result to: (V) 
Transpose (W,v + 1) 
Absmax (A,N,M,Yy,I,K) 
Innerproduct (A[t,P,u], B[P], 10, P, Y) 


These examples correspond to examples given in Section 5.4.2. 


4.7.3. Semantics. A procedure statement serves to invoke (call for) the execu- 
tion of a procedure body (cf. Section 5.4. Procedure Declarations). Where the pro- 
cedure body is a statement written in ALGOL the effect of this execution will be 
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equivalent to the effect of performing the following operations on the program 
at the time of execution of the procedure statement: 


4.7.3.1. Value assignment (call by value). All formal parameters quoted in the 
value part of the procedure declaration heading are assigned the values (cf. 
Section 2.8. Values and Types) of the corresponding actual parameters, these 
assignments being considered as being performed explicitly before entering the 
procedure body. The effect is as though an additional block embracing the 
procedure body were created in which these assignments were made to variables 
local to this fictitious block with types as given in the corresponding specifica- 
tions (cf. Section 5.4.5). As a consequence, variables called by value are to be 
considered as non-local to the body of the procedure, but local to the fictitious 
block (cf. Section 5.4.3.) 


4.7.3.2. Name replacement (call by name). Any formal parameter not quoted 
in the value list is replaced, throughout the procedure body, by the corresponding 
actual parameter, after enclosing this latter in parentheses wherever syntactically 
possible. Possible conflicts between identifiers inserted through this process and 
other identifiers already present within the procedure body will be avoided by 
suitable systematic changes of the formal or local identifiers involved. 


4.7.3.3. Body replacement and execution. Finally, the procedure body, modi- 
fied as above, is inserted in place of the procedure statement and executed. If the 
procedure is called from a place outside the scope of any non-local quantity of 
the procedure body the conflicts between the identifiers inserted through this 
process of body replacement and the identifiers whose declarations are valid 
at the place of the procedure statement or function designator will be avoided 
through suitable systematic changes of the latter identifiers. 


4.7.4. Actual-formal correspondence. The correspondence between the actual 
parameters of the procedure statement and the formal parameters of the proce- 
dure heading is established as follows: The actual parameter list of the procedure 
statement must have the same number of entries as the formal parameter list 
of the procedure declaration heading. The correspondence is obtained by taking 
the entries of these two lists in the same order. 


4.7.5. Restrictions. For a procedure statement to be defined it is evidently 
necessary that the operations on the procedure body defined in Sections 4.7.3.1 
and 4.7.3.2 lead to a correct ALGOL statement. 

This imposes the restriction on any procedure statement that the kind and type 
of each actual parameter be compatible with the kind and type of the correspond- 
ing formal parameter. Some important particular cases of this general rule are 
the following: 


4.7.5.1. If a string is supplied as an actual parameter in a procedure statement 
or function designator, whose defining procedure body is an ALGOL 60 state- 
ment (as opposed to non-ALGOL code, cf. Section 4.7.8), then this string can 
be used only within the procedure body as an actual parameter in further proce- 
dure calls. Ultimately it can only be used by a procedure body expressed in non- 
ALGOL code. 

4.7.5.2. A formal parameter which occurs as a left part variable in an assign- 
ment statement within the procedure body and which is not called by value can 
only correspond to an actual parameter which is a variable (special case of expres- 
sion). 

4.7.5.3. A formal parameter which is used within the procedure body as an 
array identifier can only correspond to an actual parameter which is an array 
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identifier of an array of the same dimensions. In addition, if the formal para- 
meter is called by value the local array created during the call will have the same 
subscript bounds as the actual array. 


4.7.5.4. A formal parameter which is called by value cannot in general cor- 
respond to a switch identifier or a procedure identifier or a string, because these 
latter do not possess values (the exception is the procedure identifier of a pro- 
cedure declaration which has an empty formal parameter part (cf. Section 5.4.1) 
and which defines the value of a function designator (cf. Section 5.4.4). This pro- 
cedure identifier is in itself a complete expression). 


4.7.5.5. Any formal parameter may have restrictions on the type of the cor- 
responding actual parameter associated with it (these restrictions may, or may 
not, be given through specifications in the procedure heading). In the procedure 
statement such restrictions must evidently be observed. 


4.7.6. Deleted. 


4.7.7. Parameter delimiters. All parameter delimiters are understood to be 
equivalent. No correspondence between the parameter delimiters used in a pro- 
cedure statement and those used in the procedure heading is expected beyond 
their number being the same. Thus, the information conveyed by using the 
elaborate ones is entirely optional. 


4.7.8. Procedure body expressed in code. The restrictions imposed on a proce- 
dure statement calling a procedure having its body expressed in non-ALGOL 
code evidently can be derived only from the characteristics of the code used and 
the intent of the user, and thus fall outside the scope of the reference language. 


5. Declarations 


Declarations serve to define certain properties of the quantities used in the 
program, and to associate them with identifiers. A declaration of an identifier 
is valid for one block. Outside this block the particular identifier may be used 
for other purposes (cf. Section 4.1.3). 

Dynamically this implies the following: at the time of an entry into a block 
(through the begin, since the labels inside are local and therefore inaccessible from 
outside) all identifiers declared for the block assume the significance implied by 
the nature of the declarations given. If these identifiers had already been defined 
by other declarations outside they are for the time being given a new significance. 
Identifiers which are not declared for the block, on the other hand, retain their 
old meaning. 

At the time of an exit from a block (through end, or by a go to statement) 
all identifiers which are declared for the block lose their local significance. 

A declaration may be marked with the additional declarator own. This has 
the following effect: upon a re-entry into the block, the values of own quantities 
will be unchanged from their values at the last exit, while the values of declared 
variables which are not marked as own are undefined. Apart from labels and 
formal parameters of procedure declarations and with the possible exception of 
those for standard functions (cf. Sections 3.2.4 and 3.2.5) all identifiers of a 
program must be declared. No identifier may be declared more than once in 
any one block head. 

Syntax. 

(declaration) ::-=<type declaration) | <array declaration) | 
<switch declaration) | (procedure declaration) 
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5.1. Type Declarations 
6.1.1. Syntax. 


<type list>::—<simple variable» | <simple variable>,<type list» 
<type>::=real | integer | Boolean 

<local or own type>::=<type> | own <type> 

<type declaration) ::=<local or own type> <type list> 


5.1.2. Hxamples. integer p, q, 3 
own Boolean Acryl, n 


5.1.3. Semantics. ‘Type declarations serve to declare certain identifiers to re- 
present simple variables of a given type. Real declared variables may only 
assume positive or negative values including zero. Integer declared variables 
may only assume positive and negative integral values including zero. Boolean 
declared variables may only assume the values true and false. 

In arithmetic expressions any position which can be occupied by a real declared 
variable may be occupied by an integer declared variable. 

For the semantics of own, see the fourth paragraph of Section 5 above. 


5.2. Array Declarations 
5.2.1. Syntax. 


<lower bound) ::=<arithmetic expression) 
<upper bound) ::=<arithmetic expression» 
<bound pair>::=<lower bound): «upper bound) 
<bound pair list>::=<bound pair) | <bound pair list>, <bound pair> 
<array segment) ::=<array identifier) [¢bound pair list)] | 
<array identifier), (array segment» 
<array list>::=<array segment) | <array list), <array segment» 
<array declaration) ::=array <array list) | 
<local or own type> array <array list» 


5.2.2. Hxamples. array a, 6, c[7:n, 2:m], s[— 2:10] 
own integer array A[if c < 0 then 2 else 1:20] 
real array g[—7: —1] 


5.2.3. Semantics. An array declaration declares one or several identifiers to re- 
present multidimensional arrays of subscripted variables and gives the dimen- 
sions of the arrays, the bounds of the subscripts, and the types of the variables. 


5.2.3.1. Subscript bounds. The subscript bounds for any array are given in the 
first subscript bracket following the identifier of this array in the form of a bound 
pair list. Each item of this list gives the lower and upper bound of a subscript 
in the form of two arithmetic expressions separated by the delimiter. The bound 
pair list gives the bounds of all subscripts taken in order from left to right. 


5.2.3.2. Dimensions. The dimensions are given as the number of entries in the 
bound pair lists. 


5.2.3.3. Types. All arrays declared in one declaration are of the same quoted 
type. If no type declarator is given the type real is understood. 


5.2.4. Lower upper bound expressions. 


5.2.4.1. The expressions will be evaluated in the same way as subscript expres- 
sions (cf. Section 3.1.4.2). 
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5.2.4.2. The expressions can only depend on variables and procedures which 
are non-local to the block for which the array declaration is valid. Consequently, 
in the outermost block of a program only array declarations with constant 
bounds may be declared. 


5.2.4.3. An array is defined only when the values of all upper subscript bounds 
are not smaller than those of the corresponding lower bounds. 


5.2.4.4. The expressions will be evaluated once at each entrance into the block. 


5.2.5. The identity of subscripted variables. The identity of a subscripted 
variable is not related to the subscript bounds given in the array declaration. 
However, even if an array is declared own the values of the corresponding sub- 
scripted variables will, at any time, be defined only for those of these variables 
which have subscripts within the most recently calculated subscript bounds. 


5.3. Switch Declarations 
5.3.1. Syntax. 
<switch list) ::=<designational expression) | 
<switch list>, (designational expression) 
<switch declaration>::=switch <switch identifier> := (switch list) 


5.3.2. Examples. switch S: = S1, S2, Q[m], if v > — 5 then S3 else S4 
switch Q: = pl, w 


5.3.3. Semantics. A switch declaration defines the set of values of the cor- 
responding switch designators. These values are given one by one as the values of 
the designational expressions entered in the switch list. With each of these 
designational expressions there is associated a positive integer, 1, 2,..., obtained 
by counting the items in the list from left to right. The value of the switch desig- 
nator corresponding to a given value of the subscript expression (cf. Section 3.5. 
Designational Expressions) is the value of the designational expression in the 
switch list having this given value as its associated integer. 


5.3.4. Evaluation of expressions in the switch list. An expression in the switch 
list will be evaluated every time the item of the list in which the expression 
occurs is referred to, using the current values of all variables involved. 


5.3.5. Influence of scopes. If a switch designator occurs outside the scope of 
a quantity entering into a designational expression in the switch list, and an 
evaluation of this switch designator selects this designational expression, then 
the conflicts between the identifiers for the quantities in this expression and the 
identifiers whose declarations are valid at the place of the switch designator will 
be avoided through suitable systematic changes of the latter identifiers. 


5.4. Procedure Declarations 
5.4.1. Syntax. 
<formal parameter): : = <identifier> 
<formal parameter list) ::—<formal parameter) | 
<formal parameter list> (parameter delimiter) (formal parameter) 
<formal parameter part) ::=<empty> | ((formal parameter list) 
<identifier list) ::—<identifier) | <identifier list), (identifier) 
<value part» ::= value <identifier list); | <empty> 
<specifier> ::= string | <type> | array | <type)> array | label | switch | 
procedure | <type> procedure 
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‘specification part>::—=<empty> | <specifier> <identifier list); | 
«specification part) <specifier> <identifier list); 

<procdure heading» :: = <procedure identifier) (formal parameter part); 
<value part» <specification part) 

<procedure body>::=<statement> | <code> 

<procedure declaration) ::= procedure procedure heading» <procedure body) | 
<type> procedure <procedure heading» <procedure body» 


5.4.2. Examples (see also the examples at the end of the report). 


procedure Spur (a) Order: (n) Result: (3); value n; 
array a; integer 7; real s; 

begin integer k; 

s:=0; 

for k: = 1 step 7 until n do s: = s 4- afk,k] 

end 


procedure T'ranspose (a) Order: (n); value 7; 
array a; integer 7; 
begin real w; integer 7,k; 
for 7: = J step 7 until n do 
fork: = 1 + 72 step 7 until n do 
begin w: = a[i,k]; 
a[z,k]: = a[k,c]; 
a[k,2]:=w 
end 
end Transpose 


integer procedure Step (w); real u; 
Step: = if 0 < uAw < 1 then / else 0 
procedure 4 bsmazx (a) size: (n, m) Result: (y) Subscripts: (i, k); 
comment The absolute greatest element of the matrix a, of size b by m is transferred 
to y, and the subscripts of this element to i and k; 
array a; integer n, m, 7, k; real y; 
begin integer 7, q; 
y:=90; 
for p: = 1 step 7 until n do for ¢g: = J step / until m do 
if abs(a[p,q]) > y then begin y: = abs(a[p,q]); 7: = p; k: = q end end Absmax 
procedure Innerproduct (a, b) Order: (k, p) Result: (y) ; value k; 
integer k, p; real y, a, b; 
begin real s; 
s: = 0; 
for p: = 1 step 7 until k dos: = s-+a x b; 

i e=5g 
end Innerproduct 

5.4.3. Semantics. A procedure declaration serves to define the procedure asso- 
ciated with a procedure identifier. The principal constituent of a procedure 
declaration is a statement or a piece of code, the procedure body, which through 
the use of procedure statements and/or function designators may be activated 
from other parts of the block in the head of which the procedure declaration 
appears. Associated with the body is a heading, which specifies certain identifiers 
occurring within the body to represent formal parameters. Formal parameters in 
the procedure body will, whenever the procedure is achieved (cf. Section 3.2. 
Function Designators and Section 4.7. Procedure Statements), be assigned the 
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values of or replaced by actual parameters. Identifiers in the procedure body 
which are not formal will be either local or non-local to the body, depending on 
whether they are declared within the body or not. Those of them which are non- 
local to the body may well be local to the block in the head of which the procedure 
declaration appears. The procedure body always acts like a block, whether it 
has the form of one or not. Consequently the scope of any label labelling a 
statement within the body or the body itself can never extend beyond the pro- 
cedure body. In addition, if the identifier of a formal parameter is declared anew 
within the procedure body (including the case of its use as a label as in Section 
4.1.3), it is thereby given a local significance and actual parameters which cor- 
respond to it are inaccessible throughout the scope of this inner local quantity. 


5.4.4. Values of function designators. For a procedure declaration to define the 
value of a function designator there must, within the procedure body, occur 
one or more explicit assignment statements with the procedure identifier in a 
left part; at least one of these must be executed, and the type associated with 
the procedure identifier must be declared through the appearance of a type 
declarator as the very first symbol of the procedure declaration. The last value 
so assigned is used to continue the evaluation of the expression in which the 
function designator occurs. Any occurrence of the procedure identifier within 
the body of the procedure other than in a left part in an assignment statement 
denotes activation of the procedure. 

5.4.5. Specifications. In the heading a specification part, giving information 
about the kinds and types of the formal parameters by means of an obvious 
notation, may be included. In this part no formal parameter may occur more 
than once. Specifications of formal parameters called by value (cf. Section 4.7.3.1) 
must be supplied and specifications of formal parameters called by name (cf. 
Section 4.7.3.2) may be omitted. 


5.4.6. Code as procedure body. It is understood that the procedure body may 
be expressed in non-ALGOL language. Since it is intended that the use of this 
feature should be entirely a question of hardware representation, no further 
rules concerning this code language can be given within the reference language. 


Examples of procedure declarations 
Example 1 
procedure euler ( fct, sum, eps, tim); value eps, tim; integer tim; 
real procedure fcz; real sum, eps; 
comment euler computes the sum of fet (1) for z from zero up to infinity by means of 
a suitably refined euler transformation. The summation is stopped as soon as tim 
tumes in succession the absolute value of the terms of the transformed series are found 
to be less than eps. Hence, one should provide a function fct with one integer argument, 
an upper bound eps, and an integer tim. The output is the sum sum. euler is parti- 
cularly efficient in the case of a slowly convergent or divergent alternating series; 
begin integer 2, k, n, t; array m[0:15]; real mn, mp, ds; 
v2 =n: = t: = 0; m[0]: = fet(0); sum: = m[0]/2; 
nextterm: 2: = 7+ 1; mn: = fet(t); 
for k: = 0 step 7 until n do 
begin mp: = (mn + m[k])/2 ; m[k]: = mn; mn: = mp end means; 
if (abs(mn) < abs(m[n])) A (n < 15) then 
begin ds: = mn/2;n: = n + 1; m[n]: = mn end accept 
else ds: = mn; 
sum: = sum + ds; 
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if abs(ds) < eps thent: = t+ J elset: = 0; 
if t < tam then go to nextterm 
end euler 


Example 2 * 

procedure RKA(z, y, n, FKT, eps, eta, xE, yE, fi); value x, y; integer 7; 

Boolean fi; real x, eps, eta, xE; array y, yE; procedure FAT; 

comment RK integrates the system y’x = fx(x, Y1, Yo, ---, YnV(k = 1,2,...0) 

of differential equations with the method of Runge-Kutta with automatic search for 
appropriate length of integration step. Parameters are: The initial values x and y[k'] 
for x and the unknown functions yx(x). The order n of the system. The procedure 
FKT(z, y, n, z) which represents the system to be integrated, 1.¢e. the set of functions fx. 
The tolerance values eps and eta which govern the accuracy of the numerical integra- 
tion. The end of the integration interval xE. The output parameter yE which re- 
presents the solution at x = xE. The Boolean variable fi, which must always be 
given the value true for an isolated or first entry into RK. If, however, the functions y 
must be available at several meshpoints xo, %1,..., Xn, then the procedure must be 
called repeatedly (with x = ay, LE = 2x41, fork = 0,1,...,n — 1) and then the 
later calls may occur with fi = false which saves computing time. The input para- 
meters of FKT must be x, y, n, the output parameter z represents the set of derivatives 
2[k] = fe(z, y[1], y[2], .... y[n]) for x and the actual y’s. A procedure comp enters 
as a non-local zdeniifier ; 


begin 
array z, yl, y2, y3[1:n]; real x1, x2, x3, H; Boolean out; 
integer k, 7; own real s, Hs; 
procedure RKIST (zx, y, h, xe, ye); real x, h, xe; array y, ye; 
comment RKIST integrates one single Runge-Kutta step with initial 
values x, y[k] which yields the output parameters xe = x -- h and ye[k}, 
the latter being the solution at xe. 
Important : the parameters n, FKT, z enter RK IST as non-local entities ; 
begin 
array w[1:n], a[1:5]; integer k, 7; 
a{1]: = a[2]: = a[5)]: = h/2; a[3]: = a[4]: = h; ve: = 2; 
for k: = 1 step 7 until n do ye[k]: = w[k]: = y[k]; 
for 7: = 1 step 7 until 4 do 
begin 
FRKT (xe, w, n, Zz); 
xe: = x + aly]; 
for k: = 1 step 7 until » do 
begin 
w[k}: = yk] + aly] x afk); 
ye[k]: = ye(k] + a[j + 1] x 2[k]/3 
end & 
end 7 
end RKIST'; 

* This RK-program contains some new ideas which are related to ideas of S. GILL, 
‘‘A process for the step by step integration of differential equations in an autornatic 
computing machine”’, Proc. Camb. Phil. Soc. 47 (1951), p. 96, and E. FrosrEre, ‘‘On 
the solution of ordinary differential equations with digital computing machines’’, 
Fystograf. Sdlisk. Lund, Foérhd. 20 Nr. 11 (1950), p. 136-152. It must be clear, however, 
that with respect to computing time and round-off errors it may not be optimal, nor 
has it actually been tested on a computer. 
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Begin of program : 


AA: 


BB: 


CC 


if f then begin H: = xE — x; 8s: = 0 end else H: = Hs; 
out: = false; 
if (zx + 2.01 x H — rE > 0)= (A > O) then 
begin Hs: = H; out: = true; H: = (xE — x)/2 end zf; 
RKAIST(z, y, 2 x H, x1, yl); 
RKIST (x, y, H, x2, y2); RKIST (x2, y2, H, x3, y3,); 
for k: = 1 step / until » do 

if comp(yl[k], y3[k], eta) > eps then go to CC; 
comment comp (u, 6, c) is a function designator, the value of which ws the 
absolute value of the difference of the mantissae of a and b, after the expo- 
nents of these quantities have been made equal to the largest of the exponents 
of the originally given parameters a, b, c; 
x: = x3; if out then go to DD; 
for k: = 1 step J until n do y{k]: = y3[k]); 
ifs — 5 then begins: = 0; H: = 2 x H end 7; 
8: = s+ 1; goto AA; 
H: = 0.5 x H; out: = false; 71 = 22; 
for k: = 1 step / until n do yl[k]: = y2[k]; 
go to BB; 


DD: for k: = 1 step 7 until n do yE[k]: = y3[k] 
end RK 


ALPHABETIC INDEX OF DEFINITIONS OF CONCEPTS AND 


All 


SYNTACTIC UNITS 


references are given through section numbers. The references are given 


in three groups: 


def 


Following the abbreviation “‘def”’, reference to the syntactic definition 
(if any) is given. 


synt Following the abbreviation “‘synt’’, references to the occurrences in 


metalinguistic formulae are given. References already quoted in the def- 
group are not repeated. 


text Following the word “‘text’’, the references to definitions given in the text 


are given. 


The basic symbols represented by signs other than underlined (bold faced. 
Publishers remark) words have been collected at the beginning. The examples 
have been ignored in compiling the index. 


+ see: plus 
— see: minus 
x see: multiply 


{ + 


see: divide 


+ see: exponentiation 


<< 


= 2 > + see: <relational operator) 


= DVA 7 see: <logical operator» 


» see: 


comma 


: decimal point 


ten 


: colon 
: semicolon 
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: = see: colon equal 
LI see: space 
() see: parentheses 
[] see: subscript bracket 
*’ see: string quote 
<actual parameter), def 3.2.1. 4.7.1 
<actual parameter list), def 3.2.1, 4.7.1 
<actual parameter part), def 3.2.1, 4.7.1 
<adding operator), def 3.3.1 
alphabet, text 2.1 
arithmetic, text 3.3.6 
<arithmetic expression), def 3.3.1 synt 3, 3.1.1, 3.3.1, 3.4.1, 4.2.1, 4.6.1, 5.2.1 
text 3.3.3 
<arithmetic operator), def 2.3 text 3.3.4 
array, synt 2.3, 5.2.1, 5.4.1 
array, text 3.1.4.1 
<array declaration), def 5.2.1 synt 5 text 5.2.3 
<array identifier), def 3.1.1 synt 3.2.1, 4.7.1, 5.2.1 text 2.8 
<array list), def 5.2.1 
<array segment», def 5.2.1 
<assignment statement», def 4.2.1 synt 4.1.1 text 1, 4.2.3 


‘basic statement», def 4.1.1] synt 4.5.1 
<basic symbol), def 2 

begin, synt 2.3, 4.1.1 
<block>, def 4.1.1 synt 4.5.1. text 1, 4.1.3, 5 
<block head), def 4.1.1 

Boolean, synt 2.3, 5.1.1 text 5.1.3 
«Boolean expression», def 3.4.1 synt 3, 3.3.1, 4.2.1, 4.5.1, 4.6.1 text 3.4.3 
«Boolean factor), def 3.4.1 
«Boolean primary»), def 3.4.1 
«Boolean secondary», def 3.4.1 
«Boolean term), def 3.4.1 
<bound pair), def 5.2.1 
<bound pair list>, def 5.2.1 
«bracket», def 2.3 


<code>, synt 5.4.1 text 4.7.8, 5.4.6 
colon:, synt 2.3, 3.2.1, 4.1.1, 4.5.1, 4.6.1, 4.7.1, 5.2.1 
colon equal: = , synt 2.3, 4.2.1, 4.6.1, 5.3.1 
comma, , synt 2.3, 3.1.1, 3.2.1, 4.6.1, 4.7.1, 5.1.1, 5.2.1, 5.3.1, 5.4.1 
comment, synt 2.3 
comment convention, text 2.3 
<compound statement), def 4.1.1 synt 4.5.1 text 1 
<compound tail>, def 4.1.1 
<conditional statement), def 4.5.1 synt 4.1.1 text 4.5.3 


<decimal fraction), def 2.5.1 
<decimal number), def 2.5.1 text 2.5.3 
decimal point ., synt 2.3, 2.5.1 
(declaration), def 5 synt 4.1.1 text 1, 5 (complete section) 
<declarator>, def 2.3 
<delimiter>, def 2.3 synt 2 
<designational expression), def 3.5.1 synt 3, 4.3.1, 5.3.1 text 3.5.3 
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<digit>, def 2.2.1 synt 2, 2.4.1, 2.5.1 
dimension, text 5.2.3.2 
divide / +, synt 2.3, 3.3.1 text 3.3.4.2 
do, svnt 2.3, 4.6.1 
<dummy statement), def 4.4.1 synt 4.1.1 text 4.4.3 


else, synt 2.3, 3.3.1, 3.4.1, 3.5.1, 4.5.1 text 4.5.3.2 
<empty>, def 1.1 synt 2.6.1, 3.2.1, 4.4.1, 4.7.1, 5.4.1 
end. synt 2.3, 4.1.1 
entier, text 3.2.5 
exponentiation +, synt 2.3, 3.3.1 text 3.3.4.3 
<exponent part», def 2.5.1 text 2.5.3 
<expression)>, def 3 synt 3.2.1, 4.7.1 text 3 (complete section) 


<factor>, def 3.3.1 
false, synt 2.2.2 
for, synt 2.3, 4.6.1 
‘for clause>, def 4.6.1 text 4.6.3 
‘for list), def 4.6.1 text 4.6.4 
‘for list element), def 4.6.1 text 4.6.4.1, 4.6.4.2, 4.6.4.3 
<formal parameter), def 5.4.1 text 5.4.3 
<formal parameter list), def 5.4.1 
<formal parameter part>, def 5.4.1 
<for statement», def 4.6.1 synt 4.1.1, 4.5.1 text 4.6 (complete section) 
<function designator), def 3.2.1 synt 3.3.1, 3.4.1 text 3.2.3, 5.4.4 


go to, synt 2.3, 4.3.1 
<go to statement», def 4.3.1 synt 4.1.1 text 4.3.3 


<identifier>, def 2.4.1 synt 3.1.1, 3.2.1, 3.5.1, 5.4.1 text 2.4.3 
<identifier list>, def 5.4.1 

if, synt 2.3, 3.3.1, 4.5.1 
cif clause>, def 3.3.1, 4.5.1 synt 3.4.1, 3.5.1 text 3.3.3, 4.5.3.2 
<if statement», def 4.5.1 text 4.5.3.1 
<implication>, def 3.4.1 

integer, synt 2.3, 5.1.1 text 5.1.3 
<integer>, def 2.5.1 text 2.5.4 


label, synt 2.3, 5.4.1 
<label>, def 3.5.1 synt 4.1.1, 4.5.1, 4.6.1 text 1, 4.1.3 
<left part>, def 4.2.1 
<left part list), def 4.2.1 
<letter>, def 2.1 synt 2, 2.4.1, 3.2.1, 4.7.1 
<letter string», def 3.2.1, 4.7.1 

local, text 4.1.3 
<local or own type>, def 5.1.1 synt 5.2.1 
<logical operator), def 2.3 synt 3.4.1 text 3.4.5 
<logical value), def 2.2.2 synt 2, 3.4.1 
{lower bound), def 5.2.1 text 5.2.4 


minus —, synt 2.3, 2.5.1, 3.3.1 text 3.3.4.1 
multiply x, svnt 2.3, 3.3.1 text 3.3.4.1 
¢multiplying operator), def 3.3.1 


non-local, text 4.1.3 
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<number), def 2.5.1 text 2.5.3, 2.5.4 


<open string», def 2.6.1 
<operator>, def 2.3 
own, synt 2.3, 5.1.1 text 5, 5.2.5 


<parameter delimiter>, def 3.2.1, 4.7.1 synt 5.4.1 text 4.7.7 
parentheses (), synt 2.3, 3.2.1, 3.3.1, 3.4.1, 3.5.1, 4.7.1, 5.4.1, text 3.3.5.2 
plus +, synt 2.3, 2.5.1, 3.3.1 text 3.3.4.1 

<primary>, def 3.3.1 
procedure, synt 2.3, 5.4.1 

<procedure body), def 5.4.1 

<procedure declaration), def 5.4.1 synt 5 text 5.4.3 

<procedure heading», def 5.4.1 text 5.4.3 

<procedure identifier», def 3.2.1 synt 3.2.1, 4.7.1, 5.4.1 text 4.7.5.4 

<procedure statement)», def 4.7.1 synt 4.1.1 text 4.7.3 

<program), def 4.1.1 text 1 

<proper string», def 2.6.1 


quantity, text 2.7 


real, synt 2.3, 5.1.1 text 5.1.3 
<relation)>, def 3.4.1 text 3.4.5 
<relational operator), def 2.3, 3.4.1 


scope, text 2.7 
semicolon;, synt 2.3, 4.1.1, 5.4.1 
<separator>, def 2.3 
<sequential operator), def 2.3 
<simple arithmetic expression), def 3.3.1 text 3.3.3 
<simple Boolean), def 3.4.1 
<simple designational expression>, def 3.5.1 
<simple variable), def 3.1.1 synt 5.5.1 text 2.4.3 
space L], synt 2.3 text 2.3, 2.6.3 
<specification part», def 5.4.1 text 5.4.5 
<specificator>, def 2.3 
<specifier>, def 5.4.1 
standard function, text 3.2.4, 3.2.5 
statement»), def 4.1.1, synt 4.5.1, 4.6.1, 5.4.1 text 4 (complete section) 
statement bracket see: begin end 
step, synt 2.3, 4.6.1 text 4.6.4.2 
string, synt 2.3, 5.4.1 
<string>, def 2.6.1 synt 3.2.1, 4.7.1 text 2.6.3 
string quotes ‘’, synt 2.3, 2.6.1, text 2.6.3 
subscript, text 3.1.4.1 
subscript bound, text 5.2.3.1 
subscript brackets[], synt 2.3, 3.1.1, 3.5.1, 5.2.1 
<subscripted variable>, def 3.1.1 text 3.1.4.1 
<subscript expression», def 3.1.1 synt 3.5.1 
<subscript list>, def 3.1.1 
successor, text 4 
switch, synt 2.3, 5.3.1, 5.4.1 
switch declaration», def 5.3.1 synt 5 text 5.3.3 
<switch designator), def 3.5.1 text 3.5.3 


255 


DICTIONARY FOR COMPUTER LANGUAGES 


<switch identifier), def 3.5.1 synt 3.2.1, 4.7.1, 5.3.1 
<switch list), def 5.3.1 


<term), def 3.3.1 
ten 10, synt 2.3, 2.5.1 
then, synt 2.3, 3.3.1, 4.5.1 
transfer function, text 3.2.5 
true, synt 2.2.2 
<type>, def 5.1.1 synt 5.4.1 text 2.8 
<type declaration), def 5.1.1 synt 5 text 5.1.3 
<type list>, def 5.1.1 


<unconditional statement), def 4.1.1, 4.5.1 

<unlabelled basic statement»), def 4.1.1 

«unlabelled block», def 4.1.1 

<unlabelled compound), def 4.1.1 

<unsigned integer», def 2.5.1, 3.5.1 

<unsigned number), def 2.5.1 synt 3.3.1 
until, synt 2.3, 4.6.1 text 4.6.4.2 

<upper bound), def 5.2.1 text 5.2.4 


value, synt 2.3, 5.4.1 

value, text 2.8, 3.3.3 
<value part», def 5.4.1 text 4.7.3.1 
<variable»>, def 3.1.1 synt 3.3.1, 3.4.1, 4.2.1, 4.6.1, text 3.1.3 
«variable identifier), def 3.1.1 


while, synt 2.3, 4.6.1 text 4.6.4.3 
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Definition of FORTRAN 


(Published in Communications of the Association for 
Computing Machinery 7, No. 10, 590 (1964)) 


HISTORY AND SUMMARY OF FORTRAN STANDARD- 
IZATION DEVELOPMENT FOR THE ASA 


By 
W. P. HEISING 


TnE American Standards Association (ASA) Sectional Committee X3 for Com- 
puters and Information Processing was established in 1960 under the sponsorship 
of the Business Equipment Manufacturers Association. ASA X3 in turn estab- 
lished an X3.4 Sectional Subcommittee to work in the area of common pro- 
gramming language standards. On May 17, 1962, X3.4 established by resolution 
a working group, X3.4.3-FORTRAN to develop American Standard FORTRAN 
proposals. 


RESOLVED : 
That X3.4 forma FORTRAN Working Group, to be known as X3.4.3-FORTRAN, 
with the 

Scope. To develop proposed standards of FORTRAN language. 

Organization. Shall contain a Policy Committee and a Technical Committee. 
The Policy Committee will be responsible to X3.4 for the Working Group’s 
mission being accomplished. It will determine general policy, such as language 
content, and direct the Technical Committee. 

Policy Committee Membership. Will be determined by the X3.4 Steering 
Committee subject to written guidelines which may be amended later and 
including the following: 

(a) For each FORTRAN implementation in active development or use, one 
sponsor voting representative and one user voting representative are authorized, 

(b) A representative who is inactive may be dropped. 

(c) Associate members, not entitled to vote but entitled to participate in 
discussion, are authorized. 

Technical Committee. Will develop proposed standards of FORTRAN language 
under the Policy Committee direction. The Technical Committee will conduct 
investigations and make reports to the Policy Committee. 


On June 25, 1962, invitations to an organizational meeting of X3.4.3 were 
sent to manufacturers and user groups who might be interested in participating 
in the development of FORTRAN standards. The first meeting was held August 
13-14, 1962, in New York City. X3.4.3 decided to proceed because (1) FORTRAN 
standardization was needed, and (2) a sufficiently wide representation of inter- 
ested persons was participating. 

A resolution on objectives was adopted unanimously on August 14, 1962. 

The objective of the X3.4.3 Working Group of ASA is to produce a document 
or documents which will define the ASA Standard or Standards for the FORTRAN 
language. The resulting standard language will be clearly and recognizably 
related to that language, with its variations, which has been called FORTRAN 
in the past. The criteria used to consider and evaluate various language elements 
will include (not in order of importance): 

(a) ease of use by humans; 

(6) compatibility with past FORTRAN use; 

(c) scope of application; 

(d) potential for extension ; 

(e) facility of implementation, i.e. compilation and execution efficiency. 


The FORTRAN standard will facilitate machine-to-machine transfer of pro- 
grams written in ASA Standard FORTRAN. The Standard will serve as a 
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reference document both for users who wish to achieve this objective and for 
manufacturers whose programming products will make it possible. The content 
and method of presentation of the standard will recognize this purpose.”’ 

It was the consensus of the group that (1) there was definite interest in develop- 
ing a standard corresponding to what is popularly known as FORTRAN IV, 
and (2) there was interest in developing for small and intermediate computers a 
FORTRAN standard near the power of FORTRAN II, however suitably modified 
to be compatible with the associated FORTRAN IV. Accordingly, two Technical 
Committees, designated X3.4.3-IV and X3.4.3-II respectively, were established 
to create drafts. Most of the detailed work in developing drafts has been done by 
technical committees. 

The X.3.4.3-II Technical Committee completed and approved a draft in May 
1963. A Technical Fact Finding Committee was appointed and reported in 
August 1964 on a comparison of the X3.4.3-II approved draft and an approved 
working draft of the X3.4.3-IV Technical Committee. This brought to light 
stylistic, terminological, and content differences and conflicts. In April 1964 the 
X3.4.3-IV Technical Committee completed a draft of FORTRAN. In June 1964 
X3.4.3 received and compared the two drafts and (1) resolved conflicts in content, 
and (2) resolved the conflicting style and terminology. This was accomplished by 
recasting the X3.4.3-II document to reflect the style of the X3.4.3-IV document 
while retaining the original content. To reduce confusion, X.3.4.3 decided to 
call the languages Basic FORTRAN and FORTRAN. 


The following working documents have been produced by a Subcommittee of the American 
Standards Association Sectional Committee X3, Computers and Information Processing. 
in its efforts to develop a proposed American Standard. In order that the final version of the 
proposed American Standard reflect the largest public consensus, X3 has authorized publt- 
cation of these documents to elicit comment, criticism, and general public reaction, with the 
understanding that such working documents are intermediate results un the standardization 
process and are subject to change, modification, or withdrawal in part or in whole. Corre- 
spondence about the documents should be addressed to the X3 Secretary, BEMA, 235 East 
42nd Street, New York, N.Y. 10017.—R.V.S. 


FORTRAN * 


CONTENTS 


1. INTRODUCTION 
2. Basic TERMINOLOGY 


3. PROGRAM FORM 

3.1. The FORTRAN character set 
3.2. Lines 

3.3. Statements 

3.4. Statement label 

3.5. Symbolic names 

3.6. Ordering of characters 


4, Data TYPES 
4.1. Data types association 
4.2. Data type properties 


5. DATA AND PROCEDURE IDENTIFI- 
CATION 

5.1. Data and procedure names 

5.1.1. Constants 

5.1.2. Variables 

5.1.3. Array 

5.1.4. Procedures 

5.2. Function reference 

5.3. Type rules for data and procedure 

identifiers 
5.4. Dummy arguments 


6. EXPRESSIONS 

6.1. Arithmetic expressions 
6.2. Relational expressions 
6.3. Logical expressions 

6.4. Evaluation of expressions 


7. STATEMENTS 

7.1. Executable statements 
7.1.1. Assignment statements 
7.1.2. Control statements 
7.1.2.1. GO TO statements 
7.1.2.2. Arithmetic IF statement 
7.1.2.3. Logical IF statement 
7.1.2.4. CALL statement 


7.1.2.5. RETURN statement 

7.1.2.6. CONTINUE statement 
7.1.2.7. Program control statements 
7.1.2.8. DO statement 

7.1.3. Input/Output statements 
7.1.3.1, READ and WRITE state- 


ments 

7.1.3.2. Auxiliary Input/Output 
statements 

7.1.3.3. Printing of formatted re- 
cords 


7.2. Nonexecutable statements 
7.2.1. Specification statements 
7.2.1.1. Array declarator 

7.2.1.2. DIMENSION statement 
7.2.1.3. COMMON statement 
7.2.1.4. EQUIVALENCE statement 
7.2.1.5. EXTERNAL statement 
7.2.1.6. Type statement 

7.2.2. Data initialization statement 
7.2.3. FORMAT statement 


8. PROCEDURES AND SUBPROGRAMS 

8.1. Statement functions 

8.2. Intrinsic functions 
reference 

8.3. External functions 

8.4. Subroutine 

8.5. Block data subprogram 


and their 


9. PROGRAMS 
9.1. Program components 
9.2. Normal execution sequence 


10. INTRA- AND INTERPROGRAM RELA- 


TIONSHIPS 


10.1. Symbolic names 
10.2. Definition 
10.3. Definition requirements for use of 


entities 


* Popularly known as FORTRAN IV. (H.B.) 
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1. INTRODUCTION 


1.l. Purpose. ‘This specification establishes the form for and the interpretation 
of programs expressed in the FORTRAN language for the purpose of promoting 
a high degree of interchangeability of such programs for use on a variety of 
automatic data processing systems. A processor shall conform to this specifica- 
tion provided it accepts, and interprets as specified, at least those forms and 
relationships described herein. 

Insofar as the interpretation of the form and relationships described are not 
affected, any statement of requirement could be replaced by a statement ex- 
pressing that the specification does not provide an interpretation unless the 
requirement is met. Further, any statement of prohibition could be replaced by a 
statement expressing that the specification does not provide an interpretation 
when the prohibition is violated. 


1.2. Scope. This specification establishes: 

1. The form of a program written in the FORTRAN language. 

2. The form of writing input data to be processed by such a program operating 
on automatic data processing systems. 

3. Rules for interpreting the meaning of such @ program. 

4, The form of the output data resulting from the use of such a program on 
automatic data processing systems, provided that the rules of interpretation 
establish an interpretation. 


This specification does not prescribe: 


1. The mechanism by which programs are transformed for use on a data 
processing system (the combination of this mechanism and data processing system 
is called a processor). 

2. The method of transcription of such programs or their input or output data 
to or from a data processing medium. 

3. The manual operations required for set-up and control of the use of such 
programs on data processing equipment. 

4. The results when the rules for interpretation fail to establish an interpretation 
of such a program. 

5. The size or complexity of a program that will exceed the capacity of any 
specific data processing system or the capability of a particular processor. 

6. The range or precision of numerical quantities. 


2. BASIC TERMINOLOGY 


This section introduces some basic terminology and some concepts. A rigorous 
treatment of these is given in later sections. Certain assumptions concerning the 
meaning of grammatical signs and particular words are presented. 

A program that can be used as a self-contained computing procedure is called 
an executable program (9.1.6). 

An executable program consists of precisely one main program and possibly 
one or more subprograms (9.1.6). 

A main program is a set of statements and comments not containing a FUNC- 
TION, SUBROUTINE, or BLOCK DATA statement (9.1.5). 

A subprogram is similar to a main program but is headed by a BLOCK DATA, 
FUNCTION, or SUBROUTINE statement. A subprogram headed by a BLOCK 
DATA statement is called a specification subprogram. A subprogram headed by 
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a FUNCTION or SUBROUTINE statement is called a procedure subprogram 
(9.1.3, 9.1.4). 


The term program unit will refer to either a main program or subprogram 
(9.1.7). 


Any program unit except a specification subprogram may reference an external 
procedure (Section 9). 

An external procedure that is defined by FORTRAN statements is called a 
procedure subprogram. External procedures also may be defined by other means. 
An external procedure may be an external function or an external subroutine. 
An external function defined by FORTRAN statements headed by a FUNC- 
TION statement is called a function subprogram. An external subroutine defined 
by FORTRAN statements headed by a SUBROUTINE statement is called a 
subroutine subprogram (Sections 8 and 9). 

Any program unit consists of statements and comments. A statement is divided 
into physical sections called lines, the first of which is called an initial line, and 
the rest of which are called continuation lines (3.2). 

There is a type of line called a comment that is not a statement and merely 
provides information for documentary purposes (3.2). 

The statements in FORTRAN fall into two broad classes—executable and 
nonexecutable. The executable statements specify the action of the program 
while the nonexecutable statements describe the use of the program, the charac- 
teristics of the operands, editing information, statement functions, or data 
arrangement (7.1, 7.2). 

The syntactic elements of a statement are names and operators. Names are 
used to reference objects such as data or procedures. Operators, including the 
imperative verbs, specify action upon named objects. 

One class of name, the array name, deserves special mention. The name and 
the dimensions of the array of values denoted by the array name are declared 
prior to use. An array name may be used to identify an entire array. An array 
name qualified by a subscript may be used to identify a particular element of the 
array (5.1.3). 

Data names and the arithmetic (or logical) operators may be connected into 
arithmetic (or logical) expressions that develop values. These values are derived 
by performing the specified operations on the named data (Section 6). 

The identifiers used in FORTRAN are names and numbers. Data are named. 
Procedures are named. Statements are labelled with numbers. Input/output 
units are numbered or identified by a name whose value is the numerical unit 
designation (Sections 3, 6, 7). 

At various places in this document there are statements with associated lists 
of entries. In all such cases the list is assumed to contain at least one entry 
unless an explicit exception is stated. As an example, in the statement 


SUBROUTINE 8(a1, A2, 6 An) 


it is assumed that at least one symbolic name is included in the list within 
parentheses. A list is a set of identifiable elements, each of which is separated from 
its successor by a comma. Further, in a sentence a plural form of a noun will be 
assumed to also specify the singular form of that noun as a special case when the 
context of the sentence does not prohibit this interpretation. 

The term reference is used as a verb with special meaning as defined in Section 5. 
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3. PROGRAM FORM 


Every program unit is constructed of characters grouped into lines and state- 
ments. 

3.1. THE FORTRAN Cuaracter Set. A program unit is written using the 
following characters: A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, 8, T, 
U, V, W, X, Y, Z, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, and: 


Character Name of Character 
Blank 

Equals 

Plus 

Minus 

Asterisk 

Slash 

Left Parenthesis 
Right Parenthesis 
Comma 

Decimal Point 

$ Currency Symbol 


OS a at 


The order in which the characters are listed does not imply a collating se- 
quence. 

3.1.1. Digits. A digit is one of the ten characters: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9. 
Unless specified otherwise, a string of digits will be interpreted in the decimal 
base number system when a number system base interpretation is appropriate. 

An octal digit is one of the eight characters: 0, 1, 2, 3, 4, 5, 6, 7. These are only 
used in the STOP (7.1.2.7.1) and PAUSE (7.1.2.7.2) statements. 

3.1.2. Letters. A letter is one of the twenty-six characters: A, B, C, D, E, F, 
G, H, I, J, K, L, M, N, O, P, Q, R, 8S, T, U, V, W, X, Y, Z. 

3.1.3. Alphanumeric Characters. An alphanumeric character is a letter or a 
digit. 

3.1.4. Special Characters. A special character is one of the eleven characters 
blank, equals, plus, minus, asterisk, slash, left parenthesis, right parenthesis, 
comma, decimal point, and currency symbol. 

3.1.4.1. Blank Character. With the exception of the uses specified (3.2.2, 3.2.3, 
3.2.4, 4.2.6, 5.1.1.6, 7.2.3.6, and 7.2.3.8), a blank character has no meaning and 
may be used freely to improve the appearance of the program subject to the 
restriction on continuation lines in 3.3. 

3.2. LINES. A line is a string of 72 characters. All characters must be from the 
FORTRAN character set except as described in 5.1.1.6 and 7.2.3.8. 

The character positions in a line are called columns and are consecutively 
numbered 1, 2, 3, ..., 72. The number indicates the sequential position of a 
character in the line starting at the left and proceeding to the right. 

3.2.1. Comment Line. The letter C in column 1 of a line designates that line 
as a comment line. A comment line must be immediately followed by an initial 
line, another comment line, or an end line. 

A comment line does not affect the program in any way and is available as a 
convenience for the programmer. 

3.2.2. End Line. An end line is a line with the character blank in columns 1 
through 6, the characters E, N, and D, once each and in that order, in columns 
7 through 72, preceded by, interspersed with, or followed by the character blank. 
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The end line indicates to the processor the end of the written description of a 
program unit (9.1.7). Every program unit must physically terminate with an end 
line. 

3.2.3. Initial Line. An initial line is a line that is neither a comment line nor 
an end line and that contains the digit 0 or the character blank in column 6. 
Columns | through 5 contain the statement label or each contains the character 
blank. 

3.2.4. Continuation Line. A continuation line is a line that contains any 
character other than the digit 0 or the character blank in column 6, and does not 
contain the character C in column Il. 

A continuation line may only follow an initial line or another continuation line. 

3.3. STATEMENTS. A statement consists of an initial line optionally followed 
by up to nineteen ordered continuation lines. The statement is written in columns 
7 through 72 of the lines. The order of the characters in the statement is columns 
7 through 72 of the initial line followed, as applicable, by columns 7 through 72 
of the first continuation line, columns 7 through 72 of the next continuation line, 
etc. 

3.4. STATEMENT LABEL. Optionally, a statement may be labelled so that it 
may be referred to in other statements. A statement label consists of from one 
to five digits. The value of the integer represented is not significant but must be 
greater than zero. The statement label may be placed anywhere in columns 1 
through 5 of the initial line of the statement. The same statement label may not 
be given to more than one statement in a program unit. Leading zeros are not 
significant in differentiating statement labels. 

3.5. SyMBOLIC NAMES. A symbolic name consists of from one to six alpha- 
numeric characters, the first of which must be alphabetic. See 10.1 through 
10.1.10 for a discussion of classification of symbolic names and restrictions on 
their use. 

3.6. ORDERING OF CHARACTERS. An ordering of characters is assumed within 
a program unit. Thus, any meaningful collection of characters that constitutes 
names, lines, and statements exists as a totally ordered set. This ordering is 
imposed by the character position rule of 3.2 (which orders characters within 
lines) and the order in which lines are presented for processing. 


4. DATA TYPES 


Six different types of data are defined. These are integer, real, double precision, 
complex, logical, and Hollerith. Each type has a different mathematical signi- 
ficance and may have different internal representation. Thus, the data type has a 
significance in the interpretation of the associated operations with which a datum 
is involved. The data type of a function defines the type of the datum it supplies 
to the expression in which it appears. 

4.1. Data Type AssociaTION. The name employed to identify a datum or 
function carries the data type association. The form of the string representing a 
constant defines both the value and the data type. 

A symbolic name representing a function, variable, or array must have only a 
single data type association for each program unit. Once associated with a par- 
ticular data type, a specific name implies that type for any differing usage of that 
symbolic name that requires a data type association throughout the program 
unit in which it is defined. 

Data type may be established for a symbolic name by declaration in a type- 
statement (7.2.1.6) for the integer, real, double precision, complex, and logical 
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types. This specific declaration overrides the implied association available for 
integer and real (5.3). 

There exists no mechanism to associate a symbolic name with the Hollerith 
data type. Thus data of this type, other than constants, are identified under 
the guise of a name of one of the other types. | 

4.2. Data Type PROPERTIES. The mathematical and the representation 
properties for each of the data types are defined in the following sections. For 
real, double precision, and integer data, the value zero is considered neither 
positive nor negative. 

4.2.1. Integer Type. An integer datum is always an exact representation of an 
integer value. It may assume positive, negative, and zero values. It may only 
assume integral values. 

4.2.2. Real Type. A real datum is a processor approximation to the value of a 
real number. It may assume positive, negative, and zero values. 

4.2.3. Double Precision Type. A double precision datum is a processor ap- 
proximation to the value of a real number. It may assume positive, negative, 
and zero values. The degree of approximation, though undefined, must be 
greater than that of type real. 

4.2.4. Complex Type. A complex datum is a processor approximation to the 
value of a complex number. The representation of the approximation is in the 
form of an ordered pair of real data. The first of the pair represents the real part 
and the second, the imaginary part. Each part has, accordingly, the same degree 
of approximation as for a real datum. 

4.2.5. Logical Type. A logical datum may assume only the truth values of 
true or false. 

4.2.6. Hollerith Type. A Hollerith datum carries symbolic information (as 
opposed to a numeric or logical value). The symbolic information may consist of 
any symbol combination capable of representation in the processor. The rep- 
resentation for blank is a valid and significant character in a Hollerith datum. 


5. DATA AND PROCEDURE IDENTIFICATION 


Names are employed to reference or otherwise identify data and procedures. 

The term reference is used to indicate an identification of a datum implying 
that the current value of the datum will be made available during the execution 
of the statement containing the reference. If the datum is identified but not 
necessarily made available the datum is said to be named. One case of special 
interest in which the datum is named is that of assigning a value to a datum, thus 
defining or redefining the datum. 

The term, reference, is used to indicate an identification of a procedure imply- 
ing that the actions specified by the procedure will be made available. 

A complete and rigorous discussion of reference and definition, including 
redefinition, is contained in Section 10. 

5.1. DATA AND PROCEDURE NAmES. A data name identifies a constant, a 
variable, an array or array element, or a block (7.2.1.3). A procedure name 
identifies a function or a subroutine. 

5.1.1. Constants. A constant is a name that references a value or symbolic 
information derived from the name. A constant may not be redefined. 

An integer, real, or double precision constant is said to be signed when it is 
immediately preceded by a plus or minus. Also, for these types, an optionally 
signed constant is either a constant or a signed constant. 
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5.1.1.1. Integer Constant. An integer constant is formed by a nonempty string 
of digits. The datum formed this way is interpreted as the value represented by 
the digit string. 

5.1.1.2. Real Constant. A basic real constant is formed by an integer part, a 
decimal point, and a decimal fraction part in that order. Both the integer part 
and the decimal fraction part are formed by a string of digits; either one of these 
strings may be empty, but not both. The datum formed this way is interpreted 
as representing a value that is an approximation to the number represented by 
the integer and fraction parts. 

A decimal exponent is formed by the letter E followed by an optionally 
signed integer constant. This exponent is interpreted as a multiplier (to be 
applied to the constant immediately preceding it) that is an approximation to 
ten raised to the power specified by the field following the E. 

A real constant is a basic real constant, a basic real constant followed by a 
decimal exponent, or an integer constant followed by a decimal exponent. 

5.1.1.3. Double Precision Constant. A double precision exponent is formed and 
interpreted identically to a decimal exponent except that the letter D is used 
instead of the letter E. 

A double precision constant is a basic real constant followed by a double 
precision exponent or an integer constant followed by a double precision exponent. 

5.1.1.4. Complex Constant. A complex constant is formed by an ordered pair of 
optionally signed real constants, separated by a comma, and enclosed within 
parentheses. The datum formed this way is interpreted as an approximation to 
the complex number represented by the pair. 

5.1.1.5. Logical Constant. A logical constant is formed as one of the strings 
TRUE. or .FALSE. ; these are interpreted as representing the truth values of 
true and false, respectively. 

5.1.1.6. Hollerith Constant. A Hollerith constant is formed by an integer 
constant (whose value n is greater than zero) followed by the letter H , followed 
by exactly n characters. Any n characters capable of representation by the 
processor may follow the H . However, the differing character sets of different 
processors may cause the interpretation of these constants to vary. The character 
blank is significant in a Hollerith constant. 

This constant form is only defined for use in the argument list of a CALL 
statement and in the data initialization statement. 

5.1.2. Variable. A variable is a datum that is identified by a symbolic name 
(3.5). Such a datum may be referenced and defined. 

5.1.3. Array. An array is an ordered set of data of one, two, or three dimen- 
sions. An array is identified by a symbolic name. Identification of the entire 
ordered set is achieved via use of the array name. 

5.1.3.1. Array Element. An array element is one of the members of the set of 
data of an array. An array element is identified by immediately following the 
array name with a qualifier, called a subscript, which points to the particular 
element of the array. 

An array element may be referenced and defined. 

5.1.3.2. Subscript. A subscript is formed by a parenthesized list of subscript 
expressions. Each subscript expression is separated by a comma from its suc- 
cessor, if there is a successor. The number of subscript expressions must cor- 
respond to the declared dimensionality (7.2.1.1), except in an EQUIVALENCE 
statement (7.2.1.4). Following evaluation of all of the subscript expressions, the 
array element successor function (7.2.1.1.1) determines the identified array 
element. 
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5.1.3.3. Subscript Expressions. A subscript expression is formed from one of 

the following constructs: 

c*vu+k 

c*tvu—k 

c*y 

vutk 

v—k 

v 

k 
where c and k are integer constants and v is an integer variable reference. See 
Section 6 for a discussion of evaluation of expressions and 10.2.8 and 10.3 for 
requirements that apply to the use of a variable in a subscript. 

5.1.4. Procedures. A procedure (Section 8) is identified by a symbolic name. A 
procedure is a statement function, an intrinsic function, a basic external function, 
an external function, or an external subroutine. Statement functions, intrinsic 
functions, basic external functions, and external functions are referred to as 
functions or function procedures; external subroutines as subroutines or sub- 
routine procedures. 

A function supplies a result to be used at the point of reference; a subroutine 
does not. Functions are referenced in a manner different from subroutines. 

5.2. FUNCTION REFERENCE. A function reference consists of the function 
name followed by an actual argument list enclosed in parentheses. If the list 
contains more than one argument, the arguments are separated by commas. 
The allowable forms of function arguments are given in Section 8. 

See 10.2.1 for a discussion of requirements that apply to function references. 

5.3. TYPE RULES FOR DaTA AND PROCEDURE IDENTIFIERS. The type of a 
constant is implicit in its name. 

There is no type associated with a symbolic name that identifies a subroutine 
or a block. 

A symbolic name that identifies a variable, an array, or a statement function 
may have its type specified in a type-statement. In the absence of an explicit 
declaration, the type is implied by the first character of the name: I, J, K, L, M, 
and N imply type integer; any other letter implies type real. 

A symbolic name that identifies an intrinsic function or a basic external 
function when it is used to identify this designated procedure, has a type asso- 
ciated with it as specified in Tables 3 and 4. 

In the program unit in which an external function is referenced its type defi- 
nition is defined in the same manner as for a variable and an array. For a function 
subprogram, type is specified either implicitly by its name or explicitly in the 
FUNCTION statement. 

The same type is associated with an array element as is associated with the 
array name. 

5.4. DumMMy ARGUMENTS. A dummy argument of an external procedure 
identifies a variable, array, subroutine, or external function. 

When the use of an external function name is specified, the use of a dummy 
argument 1s permissible if an external function name will be associated with that 
dummy argument. (Section 8.) 

When the use of an external subroutine name is specified, the use of a dummy 
argument is permissible if an external subroutine name will be associated with 
that dummy argument. 

When the use of a variable or array element reference is specified, the use of a 
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dummy argument is permissible if a value of the same type will be made available 
through argument association. 

Unless specified otherwise, when the use of a variable, array, or array element 
name is specified, the use of a dummy argument is permissible provided that a 
proper association with an actual argument is made. 

The process of argument association is discussed in Sections 8 and 10. 


6. EXPRESSIONS 


This seetion gives the formation and evaluation rules for arithmetic, relational, 
and logical expressions. A relational expression appears only within the context 
of logical expressions. An expression is formed from elements and operators. 
See 10.3 for a discussion of requirements that apply to the use of certain entities 
in expressions. 

6.1. ARITHMETIC EXPRESSIONS. An arithmetic expression is formed with 
arithmetic operators and arithmetic elements. Both the expression and its 
constituent elements identify values of one of the types integer, real, double 
precision, or complex. The arithmetic operators are: 


Operator Representing 
+ Addition, positive value (zero + element) 
— Subtraction, negative value (zero — element) 
: Multiplication 
/ Division 
baled Exponentiation 


The arithmetic elements are primary, factor, term, signed term, simple arith- 
metic expression, and arithmetic expression. 

A primary is an arithmetic expression enclosed in parentheses, a constant, a 
variable reference, an array element reference, or a function reference. 

A factor is a primary or a construct of the form: 


primary**primary 
A term is a factor or a construct of one of the forms: 


term/factor 
or 
term*term 


A signed term is a term immediately preceded by + or —. 

A simple arithmetic expression is a term or two simple arithmetic expressions 
separated by a + or —. 

An arithmetic expression is a simple arithmetic expression or a signed term or 
either of the preceding forms immediately followed by a + or — immediately 
followed by a simple arithmetic expression. 

A primary of any type may be exponentiated by an integer primary, and the 
resultant factor is of the same type as that of the element being exponentiated. 
A real or double precision primary may be exponentiated by a real or double 
precision primary, and the resultant factor is of type real if both primaries are of 
type real and otherwise of type double precision. These are the only cases for 
which use of the exponentiation operator is defined. 

By use of the arithmetic operators other than exponentiation, any admissible 
element may be combined with another admissible element of the same type, 
and the resultant element is of the same type. Further, an admissible real 
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element may be combined with an admissible double precision or complex 
element; the resultant element is of type double precision or complex, respec- 
tively. 

6.2. RELATIONAL EXPRESSIONS. A relational expression consists of two arith- 
metic expressions separated by a relational operator and will have the value true 
or false as the relation is true or false, respectively. One arithmetic expression 
may be of type real or double precision and the other of type real or double 
precision, or both arithmetic expressions may be of type integer. If a real ex- 
pression and a double precision expression appear in a relational expression, the 
effect is the same as a similar relational expression. This similar expression 
contains a double precision zero as the right hand arithmetic expression and the 
difference of the two original expressions (in their original order) as the left. 
The relational operator is unchanged. The relational operators are: 


Operator Representing 
Ay De be Less than 
-LE. Less than or equal to 
EQ. Equal to 
NE. Not equal to 
GT. Greater than 
GE. Greater than or equal to 


6.3. LocicaL Expressions. A logical expression is formed with logical 
operators and logical elements and has the value true or false. The logical 
operators are: 


Operator Representing 
OR. Logical disjunction 
AND. Logical conjunction 
NOT. Logical negation 


The logical elements are logical primary, logical factor, logical term, and 
logical expression. 

A logical primary is a logical expression enclosed in parentheses, a relational 
expression, a logical constant, a logical variable reference, a logical array element 
reference, or a logical function reference. 

A logical factor is a logical primary or .NOT. followed by a logical primary. 

A logical term is a logical factor or a construct of the form: 


logical term .AND. logical term 
A logical expression is a logical term or a construct of the form: 
logical expression .OR. logical expression 


6.4. EVALUATION OF ExPRESSIONS. A part of an expression need be evaluated 
only if such action is necessary to establish the value of the expression. The rules 
for formation of expressions imply the binding strength of operators. It should 
be noted that the range of the subtraction operator is the term that immediately 
succeeds it. The evaluation may proceed according to any valid formation 
sequence. 

When two elements are combined by an operator the order of evaluation of 
the elements is optional. If mathematical use of operators is associative, com- 
mutative, or both, full use of these facts may be made to revise orders of com- 
bination, provided only that integrity of parenthesized expressions is not violated. 
The value of an integer factor or term is the nearest integer whose magnitude does 
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not exceed the magnitude of the mathematical value represented by that factor 
or term. 

Any use of an array element name requires the evaluation of its subscript. 
The evaluation of functions appearing in an expression may not validly alter the 
value of any other element within the expressions, assignment statement, or 
CALL statement in which the function reference appears. The type of the 
expression in which a function reference or subscript appears does not affect, nor 
is it affected by, the evaluation of the actual arguments or subscript. 

No factor may be evaluated that requires a negative valued primary to be 
raised to a real or double precision exponent. No factor may be evaluated that 
requires raising a zero valued primary to a zero valued exponent. 

No element may be evaluated whose value is not mathematically defined. 


7. STATEMENTS 


A  xtatement may be classified as executable or nonexecutable. Executable 
statements specify actions; nonexecutable statements describe the characteristics 
and arrangements of data, editing information, statement functions, and classi- 
fication of program units. 

7.1. EXECUTABLE STATEMENTS. There are three types of executable state- 
ments: 


1. Assignment statements. 
2. Control statements. 
3. Input/output statements. 


7.1.1. Assignment Statements. There are three types of assignment statements: 


1. Arithmetic assignment statement. 
2. Logical assignment statement. 
3. GO TO assignment statement. 


7.1.1.1. Arithmetic Assignment Statement. An arithmetic assignment statement 
is of the form: 
v=e 


where v is a variable name or array element name of type other than logical 
and ¢ is an arithmetic expression. Execution of this statement causes the evalu- 
ation of the expression e and the altering of v according to Table 1. 
7.1.1.2. Logical Assignment Statement. A logical assignment statement is of the 
form 
v=e 


where v is a logical variable name or a logical array element name and e¢ is a 
logical expression. Execution of this statement causes the logical expression to 
be evaluated and its value to be assigned to the logical entity. 

7.1.1.3. GO TO Assignment Statement. A GO TO assignment statement is of the 


form: 
ASSIGN k TO 2 


where & is a statement label and 7 is an integer variable name. After execution 
of such a statement, subsequent execution of any assigned GO TO statement 
(Section 7.1.2.1.2) using that integer variable will cause the statement identified 
by the assigned statement label to be executed next, provided there has been no 
intervening redefinition (9.2) of the variable. The statement label must refer to 
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an executable statement in the same program unit in which the ASSIGN state- 


ment appears. 
Once having been mentioned in an ASSIGN statement, an integer variable 
may not be referenced in any statement other than an assigned GO TO statement 


until it has been redefined (Section 10.2.3). 


TABLE 1. RULES ror ASSIGNMENT OF € TO Vv 








If v Type Is And e Type Is The Assignment Rule Is* 
Integer Assign 
Integer Fix & Assign 
Integer Double Precision Fix & Assign 
Integer Complex Pp 
Real Integer Float & Assign 
Real Real Assign 
Real Double Precision | DP Evaluate & Real Assign 
Real Complex Pp 
Double Precision Integer DP Float & Assign 
Double Precision Real DP Evaluate & Assign 
Double Precision Double Precision | Assign 
Double Precision Complex P 
Complex Integer P 
Complex Real Pp 
Complex Double Precision P 
Complex Complex Assign 
* NoTES. 


1. P means prohibited combination. 

2. Assign means transmit the resulting value, without change, to the entity. 

3. Real Assign means transmit to the entity as much precision of the most significant 
part of the resulting value as a real datum can contain. 

4. DP Evaluate means evaluate the expression according to the rules of 6.1 (or any 


more precise rules) then DP Float. 
5. Fix means truncate any fractional part of the result and transform that value to 


the form of an integer datum. 

6. Float means transform the value to the form of a real datum. 

7. DP Float means transform the value to the form of a double precision datum, 
retaining in the process as much of the precision of the value as a double precision datum 


can contain. 


7.1.2. Control Statements. There are eight types of control statements: 


. GO TO statements. 

. Arithmetic IF statement. 

. Logical IF statement. 

. CALL statement. 

. RETURN statement. 

. CONTINUE statement. 

. Program control statements. 
8. DO statement. 


The statement labels used in a control statement must be associated with 
executable statements within the same program unit in which the control 
statement appears. 


“Im Om Go bo = 
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7.1.2.1. GO TO Statements. There are three types of GO TO statements: 


1. Unconditional GO TO statement. 
2. Assigned GO TO statement. 
3. Computed GO TO statement. 


7.1.2.1.1. Unconditional GO TO Statement. An unconditional GO TO statement 
is of the form: 


GO TO k 


where k is a statement label. 
Execution of this statement causes the statement identified by the statement 
label to be executed next. 
7.1.2.1.2. Assigned GO TO Statement. An assigned GO TO statement is of the 
form: 
GO TO 1, (ki, ke, ..., kn) 


where 7 is an integer variable reference, and the k’s are statement labels. 

At the time of execution of an assigned GO TO statement, the current value 
of 7 must have been assigned by the previous execution of an ASSIGN statement 
to be one of the statement labels in the parenthesized list, and such an execution 
causes the statement identified by that statement label to be executed next. 

7.1.2.1.3. Computed GO TO Statement. A computed GO TO statement is of the 
form: 

GO TO (ki, ke,...., kn), 2 


where the k’s are statement labels and 7 is an integer variable reference. See 
10.2.8 and 10.3 for a discussion of requirements that apply to the use of a variable 
in a computed GO TO statement. 

Execution of this statement causes the statement identified by the statement 
Tabel k; to be executed next, where 7 is the value of 2 at the time of the execution. 
This statement is defined only for values such that 1 <7 < n. 

7.1.2.2. Arithmetic IF Statement. An arithmetic IF statement is of the form: 


IF (e) ki, ke, ke 


where e is any arithmetic expression of type integer, real, or double precision, 
and the k’s are statement labels. 

The arithmetic IF is a three-way branch. Execution of this statement causes 
evaluation of the expression e following which the statement identified by the 
statement label ki, ke, or k3 is executed next as the value of e is less than zero, 
zero, or greater than zero, respectively. 

7.1.2.3. Logical IF Statement. A logical IF statement is of the form: 


IF (e) S 


where e is a logical expression and S is any executable statement except a DO 
statement or another logical IF statement. Upon execution of this statement, 
the logical expression e is evaluated. If the value of e is false, statement S is 
executed as though it were a CONTINUE statement. If the value of ¢e is true, 
statement S is executed. 

7.1.2.4. CALL Statement. A CALL statement is of one of the forms: 


CALL 8 (a), a2, .. . Gn) 
or 


CALL s 


where s is the name of a subroutine and the a’s are actual arguments (8.4.2). 


273 


DICTIONARY FOR COMPUTER LANGUAGES 


The inception of execution of a CALL statement references the designated 
subroutine. Return of control from the designated subroutine completes execu- 
tion of the CALL statement. 

7.1.2.5. RETURN Statement. A RETURN statement is of the form: 


RETURN 


A RETURN statement marks the logical end of a procedure subprogram and, 
thus, may only appear in a procedure subprogram. 

Execution of this statement when it appears in a subroutine subprogram 
causes return of control to the current calling program unit. 

Execution of this statement when it appears in a function subprogram causes 
return of control to the current calling program unit. At this time the value of 
the function (8.3.1) is made available. 

7.1.2.6. CONTINUE Statement. A CONTINUE statement is of the form: 


CONTINUE 


Execution of this statement causes continuation of normal execution sequence. 
7.1.2.7. Program Control Statements. ‘There are two types of program control 
statements: 


1. STOP statement. 
2. PAUSE statement. 


7.1.2.7.1. STOP Statement. A STOP statement is of one of the forms: 


STOP n 
or 
STOP 


where 7 is an octal digit string of length from one to five. 
Execution of this statement causes termination of execution of the executable 


program. 
7.1.2.7.2. PAUSE Statement. A PAUSE statement is of one of the forms: 
PAUSE n 
or 
PAUSE 


where n is an octal digit string of length from one to five. 

The inception of execution of this statement causes a cessation of execution 
of this executable program. Execution must be resumable. At the time of 
cessation of execution the octal digit string is accessible. The decision to resume 
execution is not under control of the program; but if execution is resumed, exe- 
cution of the PAUSE statement is completed. 

7.1.2.8. DO Statement. A DO statement is of one of the forms: 


DO nt = m1, Me, M3 
or 
DO nz = m, me 
where: 
1. n is the statement of an executable statement. This statement, called the 
terminal statement of the associated DO, must physically follow and be in the 
same program unit as that DO statement. The terminal statement may not be a 


GO TO of any form, arithmetic IF, RETURN, STOP, PAUSE, or DO statement, 
nor a logical IF containing any of these forms. 
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2. 2 18 an integer variable name; this variable is called the control variable. 

3.7m, called the initial parameter; m2, called the terminal parameter; and 
ms, called the incrementation parameter, are each either an integer constant or 
integer variable reference. If the second form of the DO statement is used so 
that m3 is not explicitly stated, a value of one is implied for the ircrementation 
parameter. At time of execution of the DO statement, m1, mez, and m3 must be 
greater than zero. 

Associated with each DO statement is a range that is defined to be those 
executable statements from and including the first executable statement following 
the DO, to and including the terminal statement associated with the DO. A 
special situation occurs when the range of a DO contains another DO statement. 
In this case, the range of the contained DO must be a subset of the range of the 
containing DO. 

A completely nested nest is a set of DO statements and their ranges, and any 
DO statements contained within their ranges, such that the first occurring ter- 
minal statement of any of those DO statements physically follows the last 
occurring DO statement and the first occurring DO statement of the set is not 
in the range of any DO statement. 

A DO statement is used to define a loop. The action succeeding execution of 
a Do statement is described by the following five steps: 

1. The control variable is assigned the value represented by the initial para- 
meter. This value must be less than or equal to the value represented by the 
terminal parameter. 

2. The range of the DO is executed. 

3. If control reaches the terminal statement, anu after execution of the ter- 
minal statement, the control variable of the most recently executed DO state- 
ment associated with the terminal statement is incremented by the value rep- 
resented by the associated incrementation parameter. 

4. If the value of the control variable after incrementation is less than or 
equal to the value represented by the associated terminal parameter the action 
as described starting at step 2 is repeated with the understanding that the range 
in question is that of the DO, the control variable of which was most recently 
incremented. If the value of the control variable is greater than the value 
represented by its associated terminal parameter the DO is said to have been 
satisfied and the control variable becomes undefined. 

5. At this point, if there were one or more other DO statements referring to the 
terminal statement in question the control variable of the next most recently 
executed DO statement is incremented by the value represented by its associated 
incrementation parameter and the action as described in step 4 is repeated until 
all DO statements referring to the particular termination statement are satisfied, 
at which time the first executable statement following the terminal statement is 
executed. 

Upon exiting from the range of a DO by execution of a GO TO statement or 
an arithmetic IF statement, that is, other than by satisfying the DO, the control 
variable of the DO is defined and is equal to the most recent value attained as 
defined in the foregoing. 

A DO is said to have an extended range if both of the following conditions 
apply: 

TT. ‘There exists a GO TO statement or arithmetic IF statement within the 
range of the innermost DO of a completely nested nest that can cause control to 
pass out of that nest. 

2. There exists a GO TO statement or arithmetic IF statement not within the 
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nest that, in the collection of all possible sequences of execution in the particular 
program unit could be executed after a statement of the type described in (1), 
and the execution of which could cause control to return into the range of the 
innermost DO of the completely nested nest. 

If both of these conditions apply, the extended range is defined to be the set 
of all executable statements that may be executed between all pairs of control 
statements, the first of which satisfies the condition of (1) and the second of (2). 
The first of the pair is not included in the extended range; the second is. A 
GO TO statement or an arithmetic IF statement may not cause control to pass 
into the range of a DO unless it is being executed as part of the extended range 
of that particular DO. Further, the extended range of a DO may not contain a 
Do that has an extended range. When a procedure reference occurs in the range 
of a DO, the actions of that procedure are considered to be temporarily within 
that range, i.e. during the execution of that reference. 

The control variable, initial parameter, terminal parameter, and incrementation 
parameter of a DO may not be redefined during the execution of the range or 
extended range of that DO. 

If a statement is the terminal statement of more than one DO statement the 
statement label of that terminal statement may not be used in any GO TO or 
arithmetic IF statement that occurs anywhere but in the range of the most 
deeply contained DO with that terminal statement. 

7.1.3. Input/Output Statements. There are two types of input/output state- 
ments: 


1. READ and WRITE statements. 
2. Auxiliary Input/Output statements. 


The first type consists of the statements that cause transfer of records of 
sequential files to and from internal storage, respectively. The second type con- 
sists of the BACKSPACE and REWIND statements that provide for positioning 
of such an external file, and ENDFILE, which provides for demarcation of such 
an external file. 

In the following descriptions u and f identify input/output units and format 
specifications, respectively. An input/output unit is identified by an integer 
value and u may be either an integer constant or an integer variable reference 
whose value then identifies the unit. The format specification is described in 
Section 7.2.3. Either the statement label of a FORMAT statement or an array 
name may be represented by f. If a statement label, the identified statement must 
appear in the same program unit as the input/output statement. If an array 
name, it must conform to the specifications in 7.2.3.10. 

A particular unit has a single sequential file associated with it. The most 
general case of such a unit has the following properties: 

1. If the unit contains one or more records, those records exist as a totally 
ordered set. 

2. There exists a unique position of the unit called its initial point. If a unit 
contains no records, that unit is positioned at its initial point. If the unit is at 
its initial point and contains records, the first record of the unit is defined as the 
next record. 

3. If a unit is not positioned at its initial point, there exists a unique pre- 
ceding record associated with that position. The least of any records in the order- 
ing described by (1) following this preceding record is defined as the next record 
of that position. 
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4. Upon completion of execution of a WRITE or ENDFILE statement, there 
exist no records following the records created by that statement. 

5. When the next record is transmitted, the position of the unit is changed so 
that this next record becomes the preceding record. 

If a unit does not provide for some of the properties given in the foregoing, 
certain statements that will be defined may not refer to that unit. The use of 
such a statement is not defined for that unit. 

7.1.3.1. READ and WRITE Statements. The Read and WRITE statements 
specify transfer of information. Each such statement may include a list of the 
names of variables, arrays, and array elements. The named elements are assigned 
values on input and have their values transferred on output. 

Records may be formatted or unformatted. A formatted record consists of a 
string of the characters that are permissible in Hollerith constants (5.1.1.6). 
The transfer of such a record requires that a format specification be referenced to 
supply the necessary positioning and conversion specifications (7.2.3). The 
number of records transferred by the execution of a formatted READ or WRITE 
is dependent upon the list and referenced format specification (7.2.3.4). An 
unformatted record consists of a string of values. When an unformatted or 
formatted READ statement is executed, the required records on the identified 
unit must be, respectively, unformatted or formatted records. 

7.1.3.1.1. Input/Output Lists. The input list specifies the names of the variables 
and array elements to which values are assigned on input. The output list 
specifies the references to variables and array elements whose values are trans- 
mitted. The input and output lists are of the same form. 

Lists are formed in the following manner. A simple list is a variable name, an 
array element name, or an array name, or two simple lists separated by a comma. 

A list is a simple list, a simple list enclosed in parentheses, a DO-implied list, 
or two lists separated by a comma. 

A DO-implied list is a list followed by a comma and a DO-implied specification, 
all enclosed in parentheses. 

A DO-implied specification is of one of the forms: 


or 
i= mi, m2 


The elements 7, mi, mz, and m3 are as defined for the DO statement (7.1.2.8). 
The range of DO-implied specification is the list of the DO-implied list and, for 
input lists, 7, mi, m2, and m3 may appear, within that range, only in subscripts. 

A variable name or array element name specifies itself. An array name specifies 
all of the array element names defined by the array declarator, and they are 
specified in the order given by the array element successor function (7.2.1.1.1). 

The elements of a list are specified in the order of their occurrence from left to 
right. The elements of a list in a DO-implied list are specified for each cycle of 
the implied DO. 


7.1.3.1.2. Formatted READ. A formatted READ statement is of one of the 
forms: 
READ (u, f)k 
or 
READ (4, f) 


where k is a list. 
Execution of this statement causes the input of the next records from the unit 
identified by wu. The information is scanned and converted as specified by the 
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format specification identified by f. The resulting values are assigned to the 
elements specified by the list. See, however, 7.2.3.4. 
7.1.3.1.3. Formatted WRITE. A formatted WRITE statement is of one of the 
forms: 
WRITE (u, f) k 
or 
WRITE (u, f) 
where k is a list. 
Execution of this statement creates the next records on the unit identified 
by u. The list specifies a sequence of values. These are converted and positioned 
as specified by the format specification identified by f. See, however, 7.2.3.4. 


7.1.3.1.4. Unformatted READ. An unformatted READ statement is of one of 
the forms: 
READ (u) k 
or 
READ (uw) 


where & is a list. 

Execution of this statement causes the input of the next record from the unit 
identified by u, and if there is a list these values are assigned to the sequence 
of elements specified by the list. The sequence of values required by the list may 
not exceed the sequence of values from the unformatted record. 

7.1.3.1.5. Unformatted WRITE. An unformatted WRITE statement is of the 
form: 

WRITE (u) k 
where k is a list. 

Execution of this statement creates the next record on the unit identified by wu 
of the sequence of values specified by the list. 

7.1.3.2. Auxiliary Input/Output Statements. There are three types of auxiliary 
input/output statements: 


1. REWIND statement. 
2. BACKSPACE statement. 
3. ENDFILE statement. 


7.1.3.2.1. REWIND Statement. A REWIND statement is of the form: 
REWIND u 


Execution of this statement causes the unit identified by u to be positioned at 
its initial point. 
7.1.3.2.2. BACKSPACE Statement. A BACKSPACE statement is of the form: 
BACKSPACE u 


If the unit identified by u is positioned at its initial point, execution of this 
statement has no effect. Otherwise, the execution of this statement results in the 
positioning of the unit identified by u so that what had been the preceding record 
prior to that execution becomes the next record. 

7.1.3.2.3. ENDFILE Statement. An ENDFILE statement is of the form: 


ENDFILE u 


Execution of this statement causes the recording of an endfile record on the 
unit identified by wu. The endfile record is an unique record signifying a demarca- 
tion of a sequential file. Action is undefined when an endfile record is encountered 
during execution of a READ statement. 
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7.1.3.3. Printing of Formatted Records. When formatted records are prepared 
for printing the first character of the record is not printed. 
The first character of such a record determines vertical spacing as follows: 


Character Vertical Spacing Before Printing 


Blank One line 
0 Two lines 
] To first line of next page 
+ No advance 


7.2. NONEXECUTABLE STATEMENTS. There are five types of nonexecutable 
statements: 


1. Specification statements. 

2. Data initialization statement. 
3. FORMAT statement. 

4, Function defining statements. 
5. Subprogram statements. 


See 10.1.2 for a discussion of restrictions on appearances of symbolic names in 
such statements. 

The function defining statements and subprogram statements are discussed in 
Section 8. 

7.2.1. Specification Statements. There are five types of specification statements: 


1. DIMENSION statement. 

2. COMMON statement. 

3. EQUIVALENCE statement. 
4, EXTERNAL statement. 

5. Type-statements. 


7.2.1.1. Array-Declarator. An array declarator specifies an array used in a 
program unit. 

The array declarator indicates the symbolic name, the number of dimensions 
(one, two, or three), and the size of each of the dimensions. The array declarator 
statement may be a type-statement, DIMENSION, or COMMON statement. 

An array declarator has the form: 


v (2) 
where: 


1. v, called the declarator name, is a symbolic name. 

2. (2), called the declarator subscript, is composed of 1, 2, or 3 expressions, 
each of which may be an integer constant or an integer variable name. Each 
expression is separated by a comma from its successor if there are more than one 
of them. In the case where 7 contains no integer variable, 2 is called the constant 
declarator subscript. 


The appearance of a declarator subscript in a declarator statement serves to 
inform the processor that the declarator name is an array name. The number of 
subscript expressions specified for the array indicates its dimensionality. The 
magnitude of the values given for the subscript expressions indicates the maxi- 
mum value that the subscript may attain in any array element name. 

No array element name may contain a subscript that, during execution of the 
executable program, assumes a value less than one or larger than the maximum 
length specified in the array declarator. 
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7.2.1.1.1. Array Element Successor Function and Value of a Subscript. For a 
given dimensionality, subscript declarator, and subscript, the value of a sub- 
script pointing to an array element and the maximum value a subscript may 
attain is indicated in Table 2. A subscript expression must be greater than zero. 

The value of the array element successor function is obtained by adding one 
to the entry in the subscript value column. Any array element whose subscript 
has this value is the successor to the original element. The last element of the 
array is the one whose subscript value is the maximum subscript value and has no 
successor element. 


TABLE 2. VALUE OF A SUBSCRIPT 


: ; Maximum 
Dimen- Subscript ‘ ; 
sionality | Declarator Subscript Subscript Value Se 

1 (A) (a) a A 
2 (A, B) (a, b) a+ A:(b — 1) A-B 
3 (A, B, C) (a, b, c) a+ A:(b — 1) A-B-C 


+ A-B:(e — 1) 


Notes. 1. a, 6, and c are subscript expressions. 
2. A, B, and C are dimensions. 


7.2.1.1.2. Adjustable Dimension. If any of the entries in a declarator subscript 
is an integer variable name the array is called an adjustable array, and the 
variable names are called adjustable dimensions. Such an array may appear 
only in a subprogram. The dummy argument list of the subprogram must con- 
tain the array name and the integer variable names that represent the adjustable 
dimensions. The values of the actual arguments that represent array dimensions 
in the argument list of the reference must be defined (10.2) prior to calling the 
subprogram and may not be redefined or undefined during execution of the sub- 
program. The maximum size of the actual array may not be exceeded. For every 
array appearing in an executable program (9.1.6.) there must be at least one 
constant array declarator associated through subprogram references. 

In a subprogram a symbolic name that appears in a COMMON statement 
may not identify an adjustable array. 

7.2.1.2. DIMENSION Statement. A DIMENSION statement is of the form: 


DIMENSION 11(21), va(t2), . . . 5 Un(tn) 


where each v(2) is an array declarator. 
7.2.1.3. COMMON Statement. A COMMON statement is of the form: 


COMMON /21/a1/.../2n/@n 


where each a is a nonempty list of variable names, array names, or array declara- 
tors (no dummy arguments are permitted) and each z is a symbolic name or is 
empty. If 21 is empty the first two slashes are optional. Each z is a block name, 
a name that bears no relationship to any variable or array having the same name. 
This holds true for any such variable or array in the same or any other program 
unit. See 10.1.1 for a discussion of restrictions on uses of block names. 

In any given COMMON statement the entities occurring between block name 
x and the next block name (or the end of the statement if no block name follows) 
are declared to be in common block x. All entities from the beginning of the 
statement until the appearance of a block name, or all entities in the statement 
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if no block name appears, are declared to be in blank or unlabelled common. 
Alternatively, the appearance of two slashes with no block name between them 
declares the entities that follow to be in blank common. 

A given common block name may occur more than once in a COMMON state- 
ment or in a program unit. The processor will string together in a given common 
block all entities so assigned in the order of their appearance (10.1.2). The first 
element of an array will follow the immediately preceding entity, if one exists, 
and the last element of an array will immediately precede the next entity, if one 
exists. 

The size of a common block in a program unit is the sum of the storage re- 
quired for the elements introduced through COMMON and EQUIVALENCE 
statements. The sizes of labelled common blocks with the same label in the pro- 
gram units that comprise an executable program must be the same. The sizes of 
blank common in the various program units that are to be executed together 
need not be the same. Size is measured in terms of storage units (7.2.1.3.1). 

7.2.1.3.1. Correspondence of Common Blocks. If all of the program units of an 
executable program that contain any definition of a common block of a particular 
name define that block such that: 

1. There is identity in type for all entities defined in the corresponding position 
from the beginning of that block. 

2. If the block is labelled and the same number of entities is defined for the 
block, then the values in the corresponding positions (counted by the number of 
preceding storage units) are the same quantity in the executable program. 

A double precision or a complex entity is counted as two logically consecutive 
storage units; a logical, real, or integer entity, as one storage unit. 

Then for common blocks with the same number of storage units or blank 
common: 

1. In all program units which have defined the identical type to a given 
position (counted by the number of preceding storage units) references to that 
position refer to the same quantity. 

2. A correct reference is made to a particular position assuming a given type 
if the most recent value assignment to that position was of the same type. 

7.2.1.4. EQUIVALENCE Statement. An EQUIVALENCE statement is of the 
form: 

EQUIVALENCE (k1), (ke), ..., (Kn) 
in which each k is a list of the form: 
1, A2,; ~++«5Am-. 

Each a is either a variable name or an array element name (not a dummy 
argument), the subscript of which contains only constants, and m is greater than 
or equal to two. The number of subscript expressions of an array element name 
must correspond in number to the dimensionality of the array declarator or must 
be one (the array element successor function defines a relation by which an 
array can be made equivalent to a one dimensional array of the same length). 

The EQUIVALENCE statement is used to permit the sharing of storage by 
two or more entities. Each element in a given list is assigned the same storage 
(or part of the same storage) by the processor. The EQUIVALENCE statement 
should not be used to equate mathematically two or more entities. If a two- 
storage unit entity is equivalenced to a one-storage unit entity the latter will 
share space with the first storage unit of the former. 

The assignment of storage to variables and arrays declared directly in a 
COMMON statement is determined solely by consideration of their type and the 
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COMMON and array declarator statements. Entities so declared are always 
assigned unique storage, contiguous in the order declared in the COMMON 
statement. 

The effect of an EQUIVALENCE statement upon common assignment may 
be the lengthening of a common block; the only such lengthening permitted is 
that which extends a common block beyond the last assignment for that block 
made directly by a COMMON statement. 

When two variables or array elements share storage because of the effects of 
EQUIVALENCE statements the symbolic names of the variables or arrays in 
question may not both appear in COMMON statements in the same prograin unit. 

Information contained in 7.2.1.1.1, 7.2.1.3.1, and the present section suffices 
to describe the possibilities of additional cases of sharing of storage between 
array elements and entities of common blocks. It is incorrect to cause either 
directly or indirectly a single storage unit to contain more than one element of the 
same array. 

7.2.1.5. EXTERNAL Statement. An EXTERNAL statement is of the form: 


EXTERNAL 2), v2, ..., Un 


where each v is an external procedure name. 

Appearance of a name in an EXTERNAL statement declares that name to be 
an external procedure name. If an external procedure name is used as an argu- 
ment to another external procedure it must appear in an EXTERNAL statement 
in the program unit in which it is so used. 

7.2.1.6. Type-statements. A type-statement is of the form: 


t V1, V2, 2+ 25Un 


where ¢ is INTEGER, REAL, DOUBLE PRECISION, COMPLEX, or LOGI- 
CAL, and each v is a variable name, an array name, a function name, or an array 
declarator. 

A type-statement is used to override or confirm the implicit typing, to declare 
entities to be of type double precision, complex, or logical, and may supply 
dimension information. 

The appearance of a symbolic name in a type-statement serves to inform the 
processor that it is of the specified data type for all appearances in the program 
unit. 

7.2.2. Data Initralization Statement. A data initialization statement is of the 
form: 

DATA ki /d; /,k2/de/,...,kn/dn/ 


where: 


1. Each k is a list containing names of variables and array elements. 

2. Each d is a list of constants and optionally signed constants, any of which 
may be preceded by 7*. 

3.7 18 an integer constant. 


If a list contains more than one entry the entries are separated by commas. 

Dummy arguments may not appear in the list k. Any subscript expression 
must be an integer constant. 

When the form 7* appears before a constant it indicates that the constant is 
to be specified 7 times. A Hollerith constant may appear in the list d. 

A data initialization statement is used to define initial values of variables or 
array elements. There must be a one-to-one correspondence between the list- 
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specified items and the constants. By this correspondence, the initial value is 
established. 

An initially defined variable or array element may not be in blank common. 
A variable or array element in a labelled common block may be initially defined 
only in a block data subprogram. 

7.2.3. FORMAT Statement. FORMAT statements are used in conjunction 
with the input/output of formatted records to provide conversion and editing 
information between the internal representation and the external character 
strings. 

A FORMAT statement is of the form: 


FORMAT (qitiziteze . . . tnZng2) 
where: 


L. (qitiziteze . . . tnZnQe2) is the format specification. 

2. Each gq is a series of slashes or is empty. 

3. Each ¢ is a field descriptor or group of field descriptors, 
4. Each z is a field separator. 

5. nm may be zero. 

A FORMAT statement must be labelled. 


7.2.3.1. Field Descriptors. The format field descriptors are of the forms: 


srFw.d 
srEw.d 
srGw.d 
erDw.d 
rilw 
rLw 
rAw 
nHhyhe eee ha 
m& 

where: 


1. The letters F, E, G, D, I, L, A, H, and X indicate the manner of conversion 
and editing between the internal and external representations and are called the 
conversion codes. 

2. w and n are nonzero integer constants representing the width of the field 
in the external character string. 

3. d is an integer constant representing the number of digits in the fractional 
part of the external character string (except for G conversion code). 

4. r, the repeat count, is an optional nonzero integer constant indicating the 
number of times to repeat the succeeding basic field descriptor. 

5. s is optional and represents a scale factor designator. 

6. Each h is one of the characters capable of representation by the processor. 


For all descriptors, the field width must be specified. For descriptors of the 
form w.d, the d must be specified, even if it is zero. Further, w must be greater 
than or equal to d. 

The phrase basic field descriptor will be used to signify the field descriptor 
unmodified by s or r. | 

The internal representation of external fields will correspond to the internal 
representation of the corresponding type constants (4.2 and 5.1.1). 
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7.2.3.2. Feld Separators. The format field separators are the slash and the 
comma. A series of slashes is also a field separator. The field descriptors or 
groups of field descriptors are separated by a field separator. 

The slash is used not only to separate field descriptors but also to specify de- 
marcation of formatted records. A formatted record is a string of characters. The 
lengths of the strings for a given external medium are dependent upon both the 
processor and the external medium. 

The processing of the number of characters that can be contained in a record 
by an external medium does not of itself cause the introduction or inception of 
processing of the next record. 

7.2.3.3. Repeat Specifications. Repetition of the field descriptors (except nH 
and nX) is accomplished by using the repeat count. If the input/output list 
warrants, the specified conversion will be interpreted repetitively up to the 
specified number of times. 

Repetition of a group of field descriptors or field separators is accomplished 
by enclosing them within parentheses and optionally preceding the left parenthesis 
with an integer constant called the group repeat count indicating the number of 
times to interpret the enclosed grouping. If no group repeat count is specified 
& group repeat count of one is assumed. This form of grouping is called a basic 

oup. 
ie further grouping may be formed by enclosing field descriptors, field separa- 
tors, or basic groups within parentheses. Again, a group repeat count may be 
specified. The parentheses enclosing the format specification are not considered 
as group delineating parentheses. 

7.2.3.4. Format Control Interaction with an Input/Output List. The inception of 
execution of a formatted READ or formatted WRITE statement initiates format 
control. Each action of format control depends on information jointly provided 
respectively by the next element of the input/output list, if one exists, and the 
next field descriptor obtained from the format specification. If there is an input/ 
output list at least one field descriptor other than nH or nX must exist. 

When a READ statement is executed under format control one record is 
read when the format control is initiated, and thereafter additional records are 
read only as the format specification demands. Such action may not require more 
characters of a record than it contains. 

When a WRITE statement is executed under format control, writing of a 
record occurs each time the format specification demands that a new record be 
started. Termination of format control causes writing of the current record. 

Except for the effects of repeat counts, the format specification is interpreted 
from left to right. 

To each I, F, E, G, D, A, or L basic descriptor interpreted in a format speci- 
fication, there corresponds one element specified by the input/output list, except 
that a complex element requires the interpretation of two F, E, or G basic 
descriptors. To each H or X basic descriptor there is no corresponding element 
specified by the input/output list, and the format control communicates infor- 

mation directly with the record. Whenever a slash is encountered, the format 
specification demands that a new record start or the preceding record terminate. 
During a READ operation, any unprocessed characters of the current record will 
be skipped at the time of termination of format control or when a slash is en- 
countered. 

Whenever the format control encounters an I, F, E, G, D, A, or L basic 
descriptor in a format specification, it determines if there is a corresponding 
element specified by the input/output list. If there is such an element, it transmits 
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appropriately converted information between the element and the record and 
proceeds. If there is no corresponding element, the format control terminates. 

If, however, the format control proceeds to the last outer right parenthesis of 
the format specification, a test is made to determine if another list element is 
specified. If not, control terminates. However, if another list element is specified 
the format control demands a new record start and control reverts to that group 
repeat specification terminated by the last preceding right parenthesis, or if none 
exists, then to the first left parenthesis of the format specification. Note, this 
action of itself has no effect on the scale factor. 

7.2.3.5. Scale Factor. A scale factor designator is defined for use with the F, 
E, G, and D conversions and is of the form: 


nP 


where n, the scale factor, is an integer constant or minus followed by an integer 
constant. 

When the format control is initiated a scale factor of zero is established. Once 
a scale factor has been established, it applies to all subsequently interpreted F, 
E, G, and D field descriptors, until another scale factor is encountered, and then 
that scale factor is established. 

7.2.3.5.1. Scale Factor Effects. The scale factor n affects the appropriate 
conversions in the following manner: 


1. For F, E, G, and D input conversions (provided no exponent exists in the 
external field) and F output conversions, the scale factor effect is as follows: 


Externally represented number equals internally represented number times 
the quantity ten raised to the nth power. 

9. For F, E, G, and D input, the scale factor has no effect if there is an ex- 
ponent in the external field. 

3. For E and D output, the basic real constant part of the output quantity is 
multiplied by 10" and the exponent is reduced by n. 

4. For G output, the effect of the scale factor is suspended unless the magnitude 
of the datum to be converted is outside the range that permits the effective use of 
F conversion. If the effective use of E conversion is required, the scale factor has 
the same effect as with E output. 


7.2.3.6. Numeric Conversions. The numeric field descriptors I, F, E, G, and D 
are used to specify input/output of integer, real, double precision, and complex 


data. 


1. With all numeric input conversions, leading blanks are not significant and 
other blanks are zero. Plus signs may be omitted. A field of all blanks is con- 
sidered to be zero. 

2. With the F, E, G, and D input conversions, a decimal point appearing in 
the input field overrides the decimal point specification supplied by the field 
descriptor. 

3. With all output conversions, the output field is right justified. If the number 
of characters produced by the conversion is smaller than the field width leading 
blanks will be inserted in the output field. 

4. With all output conversions, the external representation of a negative 
value must be signed; a positive value may be signed. 

5. The number of characters produced by an output conversion must not 


exceed the field width. 
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7.2.3.6.1. Integer Conversion. The numeric field descriptor Iw indicates that 
the external field occupies w positions as an integer. The value of the list item 
appears, or is to appear, internally as an integer datum. 

In the external input field, the character string must be in the form of an 
integer constant or signed integer constant (5.1.1.1), except for the interpretation 
of blanks (7.2.3.6). 

The external output field consists of blanks, if necessary, followed by a minus 
if the value of the internal datum is negative, or an optional plus otherwise, 
followed by the magnitude of the internal value converted to an integer constant. 

7.2.3.6.2. Real Conversions. There are three conversions available for use with 
real data: F, E, and G. 

The numeric field descriptor Fw.d indicates that the external field occupies w 
positions, the fractional part of which consists of d digits. The value of the list 
item appears, or is to appear, internally as a real datum. 

The basic form of the external input field consists of an optional sign, followed 
by a string of digits optionally containing a decimal point. The basic form may 
be followed by an exponent of one of the following forms: 


1. Signed integer constant. 

2. E followed by an integer constant. 

3. E followed by a signed integer constant. 
4. D followed by an integer constant. 

5. D followed by a signed integer constant. 


An exponent containing D is equivalent to an exponent containing E. 

The external output field consists of blanks, if necessary, followed by a minus 
if the internal value is negative, or an optional plus otherwise, followed by string 
of digits containing a decimal point representing the magnitude of the internal 
value, as modified by the established scale factor, rounded to d fractional digits. 

The numeric field descriptor Ew.d indicates that the external field occupies w 
positions, the fractional part of which consists of d digits. The value of the list 
item appears, or is to appear, internally as a real datum. 

The form of the external input field is the same as for the F conversion. 

The standard form of the external output field for a scale factor of zero is* 


* £ signifies no character position or minus in that position. 
£0.21 eee raY 
where: 


1. 2, ...2%¢@ are the d most significant rounded digits of the value of the data 
to be output. 
2. Y is of one of the forms: 


E+ yiya 
or 
+ y1y2ys3 
and has the significance of a decimal exponent (an alternative for the plus in the 
first of these forms is the character blank). 
3. The digit 0 in the aforementioned standard form may optionally be replaced 
by no character position. 
4. Each y is a digit. 


The scale factor n controls the decimal normalization between the number 
part and the exponent part such that: 
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1. If n < 0 there will be exactly —n leading zeros and d+ significant digits 
after the decimal point. 

2. If n > 0 there will be exactly n significant digits to the left of the decimal 
point and d—n-+1 to the right of the decimal point. 


The numeric field descriptor Gw.d indicates that the external field occupies w 
positions with d significant digits. The value of the list item appears, or is to 
appear, internally as a real datum. 

Input processing is the same as for the F conversion. 

The method of representation in the external output string is a function of 
the magnitude of the real datum being converted. Let N be the magnitude of the 
internal datum. The following tabulation exhibits a correspondence between N 
and the equivalent method of conversion that will be effected: 


Magnitude of Datum Equivalent Conversion Effected 
O0l<N<l F(w—4).d, 4X 
l1<N< 10 F(w—4).(d—1), 4X 
10¢@2 < N < 10¢1 F(w—4).1, 4% 

1071 < N < 104 F(w—4).0, 4X 
Otherwise sEw.d 


Note that the effect of the scale factor is suspended unless the magnitude of 
the datum to be converted is outside of the range that permits effective use of 
F conversion. 

7.2.3.6.3. Double Precision Conversion. The numeric field descriptor Dw.d 
indicates that the external field occupies w positions, the fractional part of which 
consists of d digits. The value of the list item appears, or is to appear, internally 
as a double precision datum. 

The basic form of the external input field is the same as for real conversions. 

The external output field is the same as for the E conversion, except that the 
character D may replace the character E in the exponent. 

7.2.3.6.4. Complex Conversion. Since a complex datum consists of a pair of 
separate real data, the conversion is specified by two successively interpreted 
real field descriptors. The first of these supplies the real part. The second supplies 
the imaginary part. 

7.2.3.7. Logical Conversion. The logical field descriptor Lw indicates that the 
external field occupies w positions as a string of information as defined below. 
The list item appears, or is to appear, internally as a logical datum. 

The external input field must consist of optional blanks followed by a T or F 
followed by optional characters, for true and false, respectively. 

The external output field consists of w—1 blanks followed by a T or F as the 
value of the internal datum is true or false, respectively. 

7.2.3.8. Hollerith Field Descriptor. Hollerith information may be transmitted 
by means of two field descriptors, nH and Aw : 


1. The nH descriptor causes Hollerith information to be read into, or written 
from, the n characters (including blanks) following the nH descriptor in the format. 


specification itself. 
2. The Aw descriptor causes w Hollerith characters to be read into, or written 


from, a specified list element. 


Let g be the number of characters representable in a single storage unit 
(7.2.1.3.1). If the field width specified for A input is greater than or equal to g 
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the rightmost g characters will be taken from the external input field. If the 
field width is less than g the w characters will appear left justified with w—g 
trailing blanks in the internal representation. 

If the field width specified for A output is greater than g the external output 
field will consist of w—g blanks, followed by the g characters from the internal 
representation. If the field width is less than or equal to g the external output 
field will consist of the leftmost w characters from the internal representation. 

7.2.3.9. Blank Field Descriptor. The field descriptor for blanks is nX. On 
input, n characters of the external input record are skipped. On output, n 
blanks are inserted in the external output record. 

7.2.3.10. Format Specification in Arrays. Any of the formatted input/output 
statements may contain an array name in place of the reference to a FORMAT 
statement label. At the time an array is referenced in such a manner the first 
part of the information contained in the array, taken in the natural order, must 
constitute a valid format specification. There is no requirement on the informa- 
tion contained in the array following the right parenthesis that ends the format 
specification. 

The format specification which is to be inserted in the array has the same 
form as that defined for a FORMAT statement; that is, begins with a left paren- 
thesis and ends with a right parenthesis. An nH field descriptor may not be part 
of a format specification within an array. 


8. PROCEDURES AND SUBPROGRAMS 


There are four categories of procedures: statement functions, intrinsic func- 
tions, external functions, and external subroutines. The first three categories 
are referred to collectively as functions or function procedures; the last as sub- 
routines or subroutine procedures. There are two categories of subprograms: 
procedure subprograms and specification subprograms. Function subprograms 
and subroutine subprograms are classified as procedure subprograms. Block data 
subprograms are classified as specification subprograms. Type rules for function 
procedures are given in 5.3. 

8.1. STATEMENT FuNcTIONS. A statement function is defined internally to the 
program unit in which it 1s referenced. It is defined by a single statement similar 
in form to an arithmetic or logical assignment statement. 

In a given program unit all statement function definitions must precede the 
first executable statement of the program unit and must follow the specification 
statements, if any. The name of a statement function must not appear in an 
EXTERNAL statement, nor as a variable name or an array name in the same 
program unit. 

8.1.1. Defining Statement Functions. A statement function is defined by a 
statement of the form: 


f(ai, Q2,...,Q@n) =e 


where f is the function name, e is an expression, and the relationship between f 
and e must conform to the assignment rules in 7.1.1.1 and 7.1.1.2. The a’s are 
distinct variable names, called the dummy arguments of the function. Since these 
are dummy arguments, their names, which serve only to indicate type, number, 
and order of arguments, may be the same as variable names of the same type 
appearing elsewhere in the program unit. 
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Aside from the dummy arguments, the expression e may only contain: 


1. Non-Hollerith constants. 

2. Variable references. 

3. Intrinsic function references. 

4. References to previously defined statement functions. 
5. External function references. 


8.1.2. Referencing Statement Functions. A statement function is referenced by 
using its reference (5.2) as a primary in an arithmetic or logical expression. The 
actual arguments, which constitute the argument list, must agree in order, 
number, and type with the corresponding dummy arguments. An actual argu- 
ment in a statement function reference may be any expression of the same type 
as the corresponding dummy argument. 

Execution of a statement function reference results in an association (10.2.2) 
of actual argument values with the corresponding dummy arguments in the 
expression of the function definition, and an evaluation of the expression. Fol- 
lowing this, the resultant value is made available to the expression that contained 
the function reference. 

8.2. INTRINSIC FUNCTIONS AND THEIR REFERENCE. The symbolic names of 
the intrinsic functions (see Table 3) are predefined to the processor and have a 
special meaning and type if the name satisfies the conditions of 10.1.7. 

An intrinsic function is referenced by using its reference as a primary in an 
arithmetic or logical expression. The actual arguments, which constitute the 
argument list, must agree in type, number, and order with the specification in 
Table 3 and may be any expression of the specified type. The intrinsic functions 
AMOD, MOD, SIGN, ISIGN, and DSIGN are not defined when the value of the 
second argument is zero. 

Execution of an intrinsic function reference results in the actions specified in 
Table 3 based on the values of the actual arguments. Following this, the resultant 
value is made available to the expression that contained the function reference. 

8.3. EXTERNAL Functions. An external function is defined externally to the 
program unit that references it. An external function defined by FORTRAN 
statements headed by a FUNCTION statement is called a function subprogram. 

8.3.1. Defining Function Subprograms. A FUNCTION statement is of the 
form: 

t FUNCTION f (a1, ao, ..., Gn) 
where: 


1.¢t is either INTEGER, REAL, DOUBLE PRECISION, COMPLEX, or 
LOGICAL, or is empty. 

2. f is the symbolic name of the function to be defined. 

3. The a’s, called the dummy arguments, are each either a variable name, an 
array name, or an external procedure name. 


Function subprograms are constructed as specified in 9.1.3 with the following 
restrictions: 


1. The symbolic name of the function must also appear as a variable name 
in the defining subprogram. During every execution of the subprogram this 
variable must be defined and, once defined, may be referenced or redefined. The 
value of the variable at the time of execution of any RETURN statement in this 
subprogram is called the value of the function. 

2. The symbolic name of the function must not appear in any nonexecutable 
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TABLE 3. Intrinsic FUNCTIONS 





Number :, Type of : 
Intrinsic Function Definstion of Argu- css 
ments Argument | Function 
Absolute Value |a| 1 ABS Real Real 
IABS Integer Integer 
DABS Double Double 
Truncation Sign of a times 1 AINT Real Real 
largest integer INT Real Integer 
<ja| IDINT Double Integer 
Remaindering* a, (mod ag) 2 AMOD Real Real 
(see note below) MOD Integer Integer 
Choosing Largest Max (a, a2, .. .) >2 AMAX0 | Integer Real 
Value AMAX]1 | Real Real 
MAXO0 Integer Integer 
MAX1 Real Integer 
DMAXI1 | Double Double 
Choosing Smallest Min (a), a2, .. .) >2 AMINO Integer Real 
Value AMIN1 Real Real 
MINO Integer Integer 
MIN1 Real Integer 
DMINI1 Double Double 
Float Conversion from 1 FLOAT | Integer Real 
integer to real 
Fix Conversion from 1 IFIX Real Integer 
real to integer 
Transfer of Sign Sign of a2 times 2 SIGN Real Real 
| a | ISIGN Integer Integer 
DSIGN Double Double 
Positive Difference a, — Min (aj, a2) 2 DIM Real Real 
IDIM Integer Integer 
Obtain Most Signi- 1 SNGL Double Real 
ficant Part of 
Double Precision 
Argument 
Obtain Real Part of 1 REAL Complex | Real 
Complex Argument 
Obtain Imaginary 1 AIMAG | Complex | Real 
Part of Complex 
Argument 
Express Single 1 DBLE Real Double 
Precision Argu- 
ment in Double 
Precision Form 
Express Two Real ay + aevV/—l1 2 CMPLX | Real Complex 
Arguments in 
Complex Form 
Obtain Conjugate of 1 CONJG | Complex | Complex 
a Complex 
Argument 





* The function MOD or AMOD (a), ag) is defined as a; — [a;/a2]a2, where [z] is the 
integer whose magnitude does not exceed the magnitude of z and whose sign is the 
same as 2. 
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statement in this program unit, except as the symbolic name of the function in 
the FUNCTION statement. 

3. The symbolic names of the dummy arguments may not appear in an 
EQUIVALENCE, COMMON, or DATA statement in the function subprogram. 

4. The function subprogram may define or redefine one or more of its arguments 
so as to effectively return results in addition to the value of the function. 

5. The function subprogram may contain any statements except BLOCK 
DATA, SUBROUTINE, another FUNCTION statement, or any statement that 
directly or indirectly references the function being defined. 

6. The function subprogram must contain at least one RETURN statement. 


8.3.2. Referencing External Functions. An external function is referenced by 
using its reference (5.2) as a primary in an arithmetic or logical expression. The 
actual arguments, which constitute the argument list, must agree in order, 
number, and type with the corresponding dummy arguments in the defining pro- 
gram unit. An actual argument in an external function reference may be one of 
the following: 


1. A variable name. 

2. An array element name. 

3. An array name. 

4. Any other expression. 

5. The name of an external procedure. 


If an actual argument is an external function name or a subroutine name, 
then the corresponding dummy argument must be used as an external function 
name or a subroutine name, respectively. 

If an actual argument corresponds to a dummy argument that is defined or 
redefined in the referenced subprogram the actual argument must be a variable 
name, an array element name, or an array name. Execution of an external 
function reference as described in the foregoing results in an association (10.2.2) 
of actual arguments with all appearances of dummy arguments in executable 
statements, function definition statements, and as adjustable dimensions in the 
defining subprogram. If the actual argument is as specified in item (4) in the 
foregoing this association is by value rather than by name. Following these 
associations, execution of the first executable statement of the defining sub- 
program is undertaken. An actual argument which is an array element name 
containing variables in the subscript could in every case be replaced by the same 
argument with a constant subscript containing the same values as would be 
derived by computing the variable subscript just before the association of argu- 
ments takes place. 

If a dummy argument of an external function is an array name the corre- 
sponding actual argument must be an array name or array element name (10.1.3). 

If a function reference causes a dummy argument in the referenced function 
to become associated with another dummy argument in the same function or 
with an entity in common a definition of either within the function is prohibited. 

Unless it is a dummy argument, an external function is also referenced (in that 
it must be defined) by the appearance of its symbolic name in an EXTERNAL 
statement. 

8.3.3. Basic External Functions. FORTRAN processors must supply the 
external functions listed in Table 4. Referencing of these functions is accom- 
plished as described in (8.3.2). Arguments for which the result of these functions 
is not mathematically defined or is of type other than that specified are im- 


proper. 
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8.4. SUBROUTINE. An external subroutine is defined externally to the program 
unit that references it. An external subroutine defined by FORTRAN state- 
ments headed by a SUBROUTINE statement is called a subroutine subprogram. 


TABLE 4. Basic EXTERNAL FUNCTIONS 









Type of : 
Basic External Definiti N pines Symbolic ype of 
Function a OF Ange Name 
ments Argument | Function 
Exponential 1 EXP Real Real 
l DEXP Double Double 
1 CEXP Complex | Complex 
Natural Logarithm 1 ALOG Real Real 
1 DLOG Double Double 
1 CLOG Complex | Complex 
Common Logarithm 1 ALOGI0 | Real Real 
DLOG10 | Double Double 
Trigonometric Sine 1 SIN Real Real 
] DSIN Double Double 
1 CSIN Complex | Complex 
Trigonometric Cosine 1 COS Real Real 
1 DCOS Double Double 
1 CCOS Complex | Complex 
Hyperbolic Tangent 1 TANH Real Real 
Square Root l SQRT Real Real 
l DSQRT Double Double 
] CSQRT Complex | Complex 
Arctangent 1 ATAN Real Real 
1 DATAN | Double Double 
arctan (@1/a2) 2 ATAN2 Real Real 
2 DATAN2 | Double Double 
Remaindering* 2 DMOD Double Double 
Modulus 1 CABS Complex | Real 








* The function DMOD (aj, a2) is defined as ay — [a;/a2]a2, where [z] is the integer 
whose magnitude does not exceed the magnitude of z and whose sign is the same as 
the sign of z. 


8.4.1. Defining Subroutine Subprograms. A SUBROUTINE statement is of 
one of the forms: 


SUBROUTINE s (a1, ao, ... , An) 
or 
SUBROUTINE s 
where: 


1. 8 is the symbolic name of the subroutine to be defined. 
2. The a’s, called the dummy arguments, are each either a variable name, an 
array name, or an external procedure name. 
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Subroutine subprograms are constructed as specified in 9.1.3 with the following 
restrictions: 


1. The symbolic name of the subroutine must not appear in any statement in 
this subprogram except as the symbolic name of the subroutine in the SUB- 
ROUTINE statement itself. 

2. The symbolic names of the dummy arguments may not appear in an 
EQUIVALENCE, COMMON, or DATA statement in the subprogram. 

3. The subroutine subprogram may define or redefine one or more of its 
arguments so as to effectively return results. 

4. The subroutine subprogram may contain any statements except BLOCK 
DATA, FUNCTION, another SUBROUTINE statement, or any statement that 
directly or indirectly references the subroutine being defined. 

5. The subroutine subprogram must contain at least one RETURN statement. 


8.4.2. Referencing Subroutines. A subroutine is referenced by a CALL state- 
ment (7.1.2.4). The actual arguments, which constitute the argument list, must 
agree in order, number, and type with the corresponding dummy arguments in 
the defining program. The use of a Hollerith constant as an actual argument is 
an exception to the rule requiring agreement of type. An actual argument in a 
subroutine reference may be one of the following: 


1. A Hollerith constant. 

2. A variable name. 

3. An array element name. 

4. An array name. 

5. Any other expression. 

6. The name of an external procedure. 


If an actual argument is an external function name or a subroutine name the 
corresponding dummy argument must be used as an external function name or a 
subroutine name, respectively. 

If an actual argument corresponds to a dummy argument that is defined or 
redefined in the referenced subprogram the actual argument must be a variable 
name, an array element name, or an array name. 

Execution of a subroutine reference as described in the foregoing results in an 
association of actual arguments with all appearances of dummy arguments in 
executable statements, function definition statements, and as adjustable dimen- 
sions in the defining subprogram. If the actual argument is as specified in item 
(5) in the foregoing this association is by value rather than by name. Following 
these associations, execution of the first executable statement of the defining 
subprogram is undertaken. 

An actual argument which is an array element name containing variables in 
the subscript could in every case be replaced by the same argument with a 
constant subscript containing the same values as would be derived by computing 
the variable subscript just before the association of arguments takes place. 

If a dummy argument of an external function is an array name the corre- 
sponding actual argument must be an array name or array element name (10.1.3). 

If a subroutine reference causes a dummy argument in the referenced sub- 
routine to become associated with another dummy argument in the same sub- 
routine or with an entity in common, a definition of either entity within the 
subroutine is prohibited. 

Unless it is a dummy argument, a subroutine is also referenced (in that it 
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must be defined) by the appearance of its symbolic name in an EXTERNAL 
statement. 
8.5. BLock Data SuBprRoGRaM. A BLOCK DATA statement is of the form: 


BLOCK DATA 


This statement may only appear as the first statement of specification sub- 
programs that are called block data subprograms, and that are used to enter 
initial values into elements of labelled common blocks. This special subprogram 
contains only type-statements, EQUIVALENCE, DATA, DIMENSION, and 
COMMON statements. 

If any entity of a given common block is being given an initial value in such a 
subprogram a complete set of specification statements for the entire block must 
be included, even though some of the elements of the block do not appear in 
DATA statements. Initial values may be entered into more than one block in a 
single subprogram. 


9. PROGRAMS 


An executable program is a collection of statements, comment lines, and end 
lines that completely (except for input data values and their effects) describe a 
computing procedure. 

9.1. PRoGRAM COMPONENTS. Programs consist of program parts, program 
bodies, and subprogram statements. 

9.1.1. Program Part. A program part must contain at least one executable 
statement and may contain FORMAT statements, and data initialization state- 
ments. It need not contain any statements from either of the latter two classes 
of statement. This collection of statements may optionally be preceded by 
statement function definitions, data initialization statements, and FORMAT 
statements. As before only some or none of these need be present. 

9.1.2. Program Body. A program body is a collection of specification state- 
ments, FORMAT statements or both, or neither, followed by a program part, 
followed by an end line. 

9.1.3. Subprogram. A subprogram consists of a SUBROUTINE or FUNC- 
TION statement followed by a program body, or is a block data subprogram. 

9.1.4. Block Data Subprogram. A block data subprogram consists of a BLOCK 
DATA statement, followed by the appropriate (8.5) specification statements, 
followed by data initialization statements, followed by an end line. 

9.1.5. Main Program. A main program consists of a program body. 

9.1.6. Executable Program. An executable program consists of a main program 
plus any number of subprograms, external procedures, or both. 


9.1.7. Program Unit. A program unit is a main program or a subprogram. 

9.2. NORMAL EXECUTION SEQUENCE. When an executable program begins 
operation execution commences with the execution of the first executable 
statement of the main program. A subprogram, when referenced, starts execu- 
tion with execution of the first executable statement of that subprogram. Unless 
a statement is a GO TO, arithmetic IF, RETURN, or STOP statement or the 
terminal statement of a DO, completion of execution of that statement causes 
execution of the next following executable statement. The sequence of execution 
following execution of any of these statements is described in Section 7. A 
program part may not contain an executable statement that can never be exe- 
cuted. 

A program part must contain a first executable statement. 
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10. INTRA- AND INTERPROGRAM RELATIONSHIPS 


10.1. SymBotic NaMES. A symbolic name has been defined to consist of from 
one to six alphanumeric characters, the first of which must be alphabetic. Se- 
quences of characters that are format field descriptors or uniquely identify 
certain statement types, e.g. GO TO, READ, FORMAT, etc., are not symbolic 
names in such occurrences nor do they form the first characters of symbolic 
names in these cases. In a program unit a symbolic name (perhaps qualified by a 
subscript) must identify an element of one (and usually only one) of the following 
classes: 


Class I An array and the elements of that array. 

Class IT A variable. 

Class III A statement function. 

Class IV An intrinsic function. 

Class V An external function. 

Class VI A subroutine. 

Class VII An external procedure which cannot be classified as either a 
subroutine or an external function in the program unit in question. 

Class VIII A block name. 


10.1.1. Restrictions on Class. A symbolic name in Class VIII in a program 
unit may also be in any one of the Classes I, II, or III in that program unit. 

In the program unit in which a symbolic name in Class V appears immediately 
following the word FUNCTION in a FUNCTION statement, that name must 
also be in Class II. 

Once a symbolic name is used in Class V, VI, VII, or VIII in any unit of an 
executable program, no other program unit of that executable program may use 
that name to identify an entity of these classes other than the one originally 
identified. In the totality of the program units that make up an executable 
program a Class VII name must be associated with a Class V or VI name. Class 
VII can only exist locally in program units. 

In a program unit no symbolic name can be in more than one class except as 
noted in the foregoing. There are no restrictions on uses of symbolic names in 
different program units of an executable program other than those noted in the 
foregoing. 

10.1.2. Implications of Mentions in Specification and DATA Statements. A 
symbolic name is in Class I if, and only if, it appears as a declarator name. Only 
one such appearance for a symbalic name in a program unit is permitted. 

A symbolic name that appears in a COMMON statement (other than as a block 
name) is either in Class I or in Class II but not Class V. (8.3.1) Only one such 
appearance for a symbolic name in a program unit is permitted. 

A symbolic name that appears in an EQUIVALENCE statement is either in 
Class I or in Class II but not Class V. (8.3.1) 

A symbolic name that appears in a type-statement cannot be in Class VI or 
Class VII. Only one such appearance for a symbolic name in a program unit is 
permitted. 

A symbolic name that appears in an EXTERNAL statement is in either Class 
V, Class VI, or Class VII. Only one such appearance for a symbolic name in a 
program unit is permitted. 

A symbolic name that appears in a DATA statement is in either Class I or in 
Class II but not Class V. (8.3.1) In an executable program, a storage unit 
(7.2.1.3.1) may have its value initialized one time at the most. 
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10.1.3. Array and Array Element. In a program unit any appearance of a 
symbolic name that identifies an array must be immediately followed by a 
subscript, except for the following cases: 


1. In the list of an input/output statement. 

2. In a list of dummy arguments. 

3. In the list of actual arguments in a reference to an external procedure. 
4. In a COMMON statement. 

5. In a type-statement. 


Only when an actual argument of an external procedure reference is an array 
name or an array element name may the corresponding dummy argument be an 
array name. If the actual argument is an array name the length of the dummy 
argument array must be no greater than the length of the actual argument array. 
If the actual argument is an array element name the length of the dummy argu- 
ment array must be less than or equal to the length of the actual argument array 
plus one minus the value of the subscript of the array element. 

10.1.4. External Procedures. The only case when a symbolic name is in Class 
VII occurs when that name appears only in an EXTERNAL statement and as 
an actual argument to an external procedure in a program unit. 

Only when an actual argument of an external procedure reference is an external 
procedure name may the corresponding dummy argument be an external pro- 
cedure name. 

In the execution of an executable program a procedure subprogram may not 
be referenced twice without the execution of a RETURN statement in that 
procedure having intervened. 

10.1.5. Subroutine. A symbolic name is in Class VI if it appears: 


1. Immediately following the word SUBROUTINE in a SUBROUTINE 
statement. 
2. Immediately following the word CALL in a CALL statement. 


10.1.6. Statement Function. A symbolic name is in Class III in a program unit 
if, and only if, it meets all three of the following conditions: 


1. It does not appear in an EXTERNAL statement nor is it in Class I. 

2. Every appearance of the name, except in a type-statement, is immediately 
followed by a left parenthesis. 

3. A function defining statement (8.1.1) is present for that symbolic name. 


10.1.7. Intrinsic Function. A symbolic name is in Class IV in a program unit 
if, and only if, it meets all four of the following conditions: 


1. It does not appear in an EXTERNAL statement nor is it in Class I or 
Class III. 

2. The symbolic name appears in the name column of the table in Section 8.2. 

3. The symbolic name does not appear in a type-statement of type different 
from the intrinsic type specified in the table. 

4. Every appearance of the symbolic name (except in a type-statement as 
described in the foregoing) is immediately followed by an actual argument list 
enclosed in parentheses. 

The use of an intrinsic function in a program unit of an executable program 
does not preclude the use of the same symbolic name to identify some other 
entity in a different program unit of that executable program. 


10.1.8. External Function. A symbolic name is in Class V if it: 
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1. Appears immediately following the word FUNCTION in a FUNCTION 
statement. 

2. Is not in Class I, Class III, Class IV, or Class VI and appears immediately 
followed by a left parenthesis on every occurrence except in a type-statement 
in an EXTERNAL statement, or as an actual argument. There must be at least 
one such appearance in the program unit in which it is so used. 


10.1.9. Variable. In a program unit, a symbolic name is in Class II if it meets 
all three of the following conditions: 


1. It is not in Class VI or Class VII. 

2. It is never immediately followed by a left parenthesis unless it is immediately 
preceded by the word FUNCTION in a FUNCTION statement. 

3. It occurs other than in a Class VIII appearance. 


10.1.10. Block Name. A symbolic name is in Class VIII if, and only if, it is 
used as a block name in a COMMON statement. 

10.2. DEFINITION. There are two levels of definition of numeric values, first- 
level definition and second-level definition. The concept of definition on the 
first level applies to array elements and variables; that of second-level definition 
to integer variables only. These concepts are defined in terms of progression of 
execution; and thus, an executable program, complete and in execution, is 
assumed in what follows. 

There are two other varieties of definition that should be noted. The first, 
effected by GO TO assignment and referring to an integer variable being defined 
with other than an integer value, is discussed in 7.1.1.3 and 7.1.2.1.2; the second, 
which refers to when an external procedure may be referenced, will be discussed 
in the next section. 

In what follows, otherwise unqualified use of the terms definition and un- 
definition (or their alternate forms) as applied to variables and array elements 
will imply modification by the phrase on the first level. 

10.2.1. Definition of Procedures. If an executable program contains information 
describing an external procedure such an external procedure with the applicable 
symbolic name is defined for use in that executable program. An external 
function reference or subroutine reference (as the case may be) to that symbolic 
name may then appear in the executable program, provided that number of 
argument agrees between definition and reference. In addition, for an external 
function, the type of function must agree between definition and reference. 
Other restrictions on agreements are contained in 8.3.1, 8.3.2, 8.4.1, 8.4.2, 10.1.3, 
and 10.1.4. 

The basic external functions listed in (8.3.3) are always defined and max be 
referenced subject to the restrictions alluded to in the foregoing. 

A symbolic name in Class IIT or Class IV is defined for such use. 

10.2.2. Associations that Effect Definition. Entities may become associated by: 


1. COMMON association. 
2. EQUIVALENCE association. 
3. Argument substitution. 


Multiple association to one or more entities can be the result of combinations 
of the foregoing. Any definition or undefinition of one of a set of associated 
entities effects the definition or undefinition of each entity of the entire set. 

For purposes of definition, in a program unit there is no association between 
any two entities both of which appear in COMMON statements. Further, there 
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is no other association for common and equivalenced entities other than those 
stated in 7.2.1.3.1 and 7.2.1.4. 

If an actual argument of an external procedure reference is an array name, an 
array element name, or a variable name, then the discussions in 10.1.3 and 10.2.1 
allow an association of dummy arguments with the actual arguments only 
between the time of execution of the first executable statement of the procedure 
and the inception of execution of the next encountered RETURN statement of 
that procedure. Note specifically that this association can be carried through 
more than one level of external procedure reference. 

In what follows, variables or array elements associated by the information in 
7.2.1.3.1 and 7.2.1.4 will be equivalent if, and only if, they are of the same type. 

If an entity of a given type becomes defined, then all associated entities of 
different type become undefined at the same time, while all associated entities of 
the same type become defined unless otherwise noted. 

Association by argument substitution is valid only in the case of identity of 
type, so the rule in this case is that an entity created by argument substitution 
is defined at time of entry if, and only if, the actual argument was defined. If 
an entity created by argument substitution becomes defined or undefined (while 
the association exists) during execution of a subprogram, then the corresponding 
actual entities in all calling program units becomes defined or undefined accord- 
ingly. 

10.2.3. Events That Effect Definition. Variables and array elements become 
initially defined if, and only if, their names are associated in a data initialization 
statement with a constant of the same type as the variable or array in question. 
Any entity not initially defined is undefined at the time of the first execution of 
the first executable statement of the main program. Redefinition of a defined 
entity is always permissible except for certain integer variables (7.1.2.8, 7.1.3.1.1, 
and 7.2.1.1.2) or certain entities in subprograms (6.4, 8.3.2, and 8.4.2). 

Variables and array elements become defined or redefined as follows: 


1. Completion of execution of an arithmetic or logical assignment statement 
causes definition of the entity that precedes the equals. 

2. As execution of an input statement proceeds, each entity, which is assigned 
a value of its corresponding type from the input medium, is defined at the time 
of such association. Only at the completion of execution of the statement do 
associated entities of the same type become defined. 

3. Completion of execution of a DO statement causes definition of the control 
variable. 

4. Inception of execution of action specified by a DO-implied list causes 
definition of the control variable. 


Variables and array elements become undefined as follows: 


1. At the time a DO is satisfied, the control variable becomes undefined. 

2. Completion of execution of an ASSIGN statement causes undefinition of the 
integer variable in the statement. 

3: Certain entities in function subprograms (10.2.9) become undefined. 

4. Completion of execution of action specified by a DO-implied list causes 
undefinition of the control variable. 

5. When an associated entity of different types becomes defined. 

6. When an associated entity of the same type becomes undefined. 


10.2.4. Entities in Blank Common. Entities in blank common and those 
entities associated with them may not be initially defined. 
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Such entities, once defined by any of the rules previously mentioned, remain 
defined until they become undefined. 

10.2.5. Entities arn Labelled Common. Entities in labelled common or any 
associates of those entities may be initially defined. 

A program unit contains a labelled common block name if the name appears 
as a block name in the program unit. If a main program or referenced subprogram 
contains a labelled common block name any entity in the block (and its associates) 
once defined remain defined until they become undefined. 

It should be noted that redefinition of an initially defined entity will allow 
later undefinition of that entity. Specifically, if a subprogram contains a labelled 
common block name that is not contained in any program unit currently referenc- 
ing the subprogram directly or indirectly, the execution of a RETURN state- 
ment in the subprogram causes undefinition of all entities in the block (and their 
associates) except for initially defined entities that have maintained their initial 
definitions. 

10.2.6. Entitzes Not in Common. An entity not in common except for a dummy 
argument or the value of a function may be initially defined. 

Such entities, once defined by any of the rules previously mentioned, remain 
defined until they become undefined. 

If such an entity is in a subprogram the completion of execution of a RETURN 
statement in that subprogram causes all such entities and their associates at that 
time (except for initially defined entities that have not been redefined or become 
undefined) to become undefined. In this respect, it should be noted that the 
association between dummy arguments and actual arguments is terminated at 
the inception of execution of the RETURN statement. 

Again, it should be emphasized, the redefinition of an initially defined entity 
can result in a subsequent undefinition of that entity. 

10.2.7. Basic Block. In a program unit, a basic block is a group of one or 
more executable statements defined as follows. 

The following statements are block terminal statements: 


. DO statement. 
. CALL statement. 
. GO TO statement of all types. 
. Arithmetic IF statement. 
. STOP statement. 
. RETURN statement. 
. The first executable statement, if it exists, preceding a statement whose 
label is mentioned in a GO TO or arithmetic IF statement. 
8. An arithmetic statement in which an integer variable precedes the equals. 
9. A READ statement with an integer variable in the list. 
10. A logical IF containing any of the admissible forms given in the foregoing. 


IS Ol Pm & bo = 


The following statements are block initial statements: 


1. The first executable statement of a program unit. 

2. The first executable statement, if it exists, following a block terminal 
statement. 

Every block initial statement defines a basic block. If that initial statement 
is also a block terminal statement the basic block consists of that one statement. 
Otherwise, the basic block consists of the initial statement and all executable 
statements that follow until a block terminal statement is encountered. The 
terminal statement is included in the basic block. 
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10.2.7.1. Last Executable Statement. In a program unit the last executable 
statement (which cannot be part of a logical IF) must be one of the following 
statements: GO TO statement, arithmetic IF statement, STOP statement, or 
RETURN statement. 

10.2.8. Second Level Definition. Integer variables must be defined on the 
second level when used in subscripts and computed GO TO statements. 

Redefinition of an integer entity causes all associated variables to be undefined 
for use on the second level during this execution of this program unit until the 
associated integer variable is explicitly redefined. 

Except as just noted, an integer variable is defined on the second level upon 
execution of the initial statement of a basic block only if both of the following 
conditions apply: 


1. The variable is used in a subscript or in a computed GO TO in the basic 
block in question. 

2. The variable is defined on the first level at the time of execution of the 
initial statement in question. 


This definition persists until one of the following happens: 


1. Completion of execution of the terminal statement of the basic block in 
question. 

2. The variable in question becomes undefined or receives a new definition on 
the first level. 

At this time the variable becomes undefined on the second level. 

In addition, the occurrence of an integer variable in the list of an input state- 
ment in which that integer variable appears following in a subscript causes that 
variable to be defined on the second level. This definition persists until one of the 
following happens: 


1. Completion of execution of the terminal statement of the basic block con- 
taining the input statement. 

2. The variable becomes undefined or receives a new definition on the first 
level. 


An integer variable defined as the control variable of a DO-implied list is 
defined on the second level over the range of that DO-implied list and only over 
that range. 

10.2.9. Certain Entities in Function Subprograms. If a function subprogram 
is referenced more than once with an identical argument list in a single state- 
ment, the execution of that subprogram must yield identical results for those 
cases mentioned, no matter what the order of evaluation of the statement. 

If a statement contains a factor that may not be evaluated (6.4), and if this 
factor contains a function reference, then all entities that might be defined in 
that reference become undefined at the completion of evaluation of the expression 
containing the factor. 

10.3. DEFINITION REQUIREMENTS FOR USE oF ENTITIES. Any variable 
referenced in a subscript or a computed GO TO must be defined on the second 
level at the time of this use. 

Any variable, array element, or function referenced as @ primary in an ex- 
pression and any subroutine referenced by a CALL statement must be defined 
at the time of this use. In the case where an actual argument in the argument 
list of an external procedure reference is a variable name or an array element 
name, this in itself is not a requirement that the entity be defined at the time of 
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the procedure reference; however, when such an argument is an external pro- 
cedure name, it must be defined. 

Any variable used as an initial .value, terminal value, or incrementation 
value of a DO statement or a DO-implied list must be defined at the time of this 
use. 

Any variable used to identify an input/output unit must be defined at the 
time of this use. 

At the time of execution of a RETURN statement in a function subprogram, 
the value (8.3.1) of that function must be defined. 

At the time of execution of an output statement, every entity whose value is 
to be transferred to the output medium must be defined unless the output is 
under control of a format specification and the corresponding conversion code is 
A. If the output is under control of a format specification a correct association 
of conversion code with type of entity is required unless the conversion code is A. 
The following are the correct associations: I with integer; D with double pre- 
cision; E, F, and G with real and complex; and L with logical. 
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1.1. Purpose. This specification establishes the form for and the interpretation 
of programs expressed in the FORTRAN language for the purpose of promoting 
a high degree of interchangeability of such programs for use on a variety of auto- 
matic data processing systems. A processor shall conform to this specification 
provided it accepts, and interprets as specified, at least those forms and relation- 
ships described herein. 

Insofar as the interpretation of the form and relationships described are not 
affected, any statement of requirement could be replaced by a statement express- 
ing that the specification does not provide an interpretation unless the require- 
ment is met. Further, any statement of prohibition could be replaced by a state- 
ment expressing that the specification does not provide an interpretation when 
the prohibition is violated. 


1.2. Scope. This specification establishes: 

1. The form of a program written in the FORTRAN language. 

2. The form of writing input data to be processed by such a program operating 
on automatic data processing systems. 

3. Rules for interpreting the meaning of such a program. 

4. The form of the output data resulting from the use of such a program on 
automatic data processing systems, provided that the rules of interpretation 
establish an interpretation. 


This specification does not prescribe: 


1. The mechanism by which programs are transformed for use on a data 
processing system (the combination of this mechanism and data processing system 
is called a processor). 

2. The method of transcription of such programs or their input or output data 
to or from a data processing medium. 

3. The manual operations required for set-up and control of the use of such pro- 
grams on data processing equipment. 

4. The results when the rules for interpretation fail to establish an interpreta- 
tion of such a program. 

5. The size or complexity of a program that will exceed the capacity of any 
specific data processing system or the capability of a particular processor. 

6. The range of precision of numerical quantities. 


2. BASIC TERMINOLOGY 


This section introduces some basic terminology and some concepts. A rigorous 
treatment of these is given in later sections. Certain conventions concerning the 
meaning of grammatical forms and particular words are presented. 

A program that can be used as a self-contained computing procedure is called an 
executable program (9.1.6). 

An executable program consists of precisely one main program and possibly one 
or more subprograms (9.1.6). 

A main program is a set of statements and comments not containing a FUNC- 
TION or SUBROUTINE statement (9.1.5). 
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A procedure subprogram is similar to a main program but is headed by a FUNC: 
TION or SUBROUTINE statement. A procedure subprogram is sometimes 
referred to as a subprogram (9.1.3). 

The term program unit will refer to either a main program or subprogram 
(9.1.7). 

Any program unit may reference an external procedure (Section 9). 

An external procedure that is defined by FORTRAN statements is called a 
procedure subprogram. External procedures also may be defined by other means. 
An external procedure may be an external function or an external subroutine. 
An external function defined by FORTRAN statements headed by a FUNCTION 
statement is called a function subprogram. An external subroutine defined by 
FORTRAN statements headed by a SUBROUTINE statement is called a sub- 
routine subprogram (Sections 8 and 9). 

Any program unit consists of statements and comments. A statement is divided 
into physical sections called lines, the first of which is called an znztial line and the 
rest of which are called continuation lines (3.2). 

There is a type of line called a comment that is not a statement and merely 
provides information for documentary purposes (3.2). 

The statements in FORTRAN fall into two broad classes—executable and non- 
executable. The executable statements specify the action of the program while 
the nonexecutable statements describe the use of the program, the characteristics 
of the operands, editing information, statement functions, or data arrangement 
(7.1, 7.2). 

The syntactic elements of a statement are names and operators. Names are 
used to reference objects such as data or procedures. Operators, including the 
imperative verbs, specify action upon named objects. 

One class of name, the array name, deserves special mention. The name and 
the dimensions of the array of values denoted by the array name are declared 
prior to use. An array name may be used to identify an entire array. An array 
name qualified by a subscript may be used to identify a particular element of the 
array (5.1.3). 

Data names and the arithmetic operators may be connected into arithmetic 
expressions that develop values. These values are derived by performing the 
specified operations on the named data (Section 6). 

The identifiers used in FORTRAN are names and numbers. Data are named. 
Procedures are named. Statements are labelled with numbers. Input/output 
units are numbered or identified by a name whose value is the numerical unit 
designation. 

At various places in this document there are statements with associated lists 
of entries. In all such cases the list is assumed to contain at least one entry unless 
an explicit exception is stated. As an example, in the statement 


SUBROUTINE s(a1, ae, ..., an) 


it is assumed that at least one symbolic name is included in the list within 
parentheses. A list is a set of identifiable elements, each of which is separated from 
its successor by acomma. Further, in a sentence a plural form of a noun will be 
assumed to also specify the singular form of that noun as a special case when the 
context of the sentence does not prohibit this interpretation. 

The term reference is used as a verb with special meaning as defined in Section 5. 
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3. PROGRAM FORM 


Every program unit is constructed of characters grouped into lines and state- 
ments. 

3.1. Toe FORTRAN CuHaracTErR SET. A program unit is written using the 
following characters: A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, 8, 
T, U, V, W, X, Y, Z, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, and: 


Character Name of Character 
Blank 
— Equals 
-+- Plus 
— Minus 
Asterisk 
Slash 
Left Parenthesis 
Right Parenthesis 
Comma 
Decimal Point 


The order in which the characters are listed does not imply a collating sequence. 

3.1.1. Digits. A digit is one of the ten characters: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9. 
Unless specified otherwise, a string of digits will be interpreted in the decimal 
base number system when a number system base interpretation is appropriate. 

An octal digit is one of the eight characters: 0, 1, 2, 3, 4, 5, 6, 7. These are 
only used in the STOP (7.1.2.7.1) and PAUSE (7.1.2.7.2) statements. 

3.1.2. Letters. A letter is one of the twenty-six characters: A, B, C, D, E, F, G, 
H, I, J, K, L, M, N, O, P, Q, R, 8, T, U, V, W, X, Y, Z. 

3.1.3. Alphanumeric Characters. An alphanumeric character is a letter or a 
digit. 

3.1.4. Special Characters. A special character is one of the ten characters: blank, 
equals, plus, minus, asterisk, slash, left parenthesis, right parenthesis, comma, 
and decimal point. 

3.1.4.1. Blank Character. With the exception of the uses specified (3.2.2, 3.2.3, 
3.2.4, 7.2.3.6, and 7.2.3.8), a blank character has no meaning and may be used 
freely to improve the appearance of the program subject to the restriction on 
continuation lines in 3.3. 

3.2. LINES. A line is a string of 72 characters. All characters must be from the 
FORTRAN character set except as described in 7.2.3.8. 

The character positions in a line are called columns and are consecutively 
numbered 1, 2, 3, ..., 72. The number indicates the sequential position of a 
character in the line starting at the left and proceeding to the right. 

3.2.1. Comment Line. The line C in column 1 of a line designates that line as a 
comment line. A comment line must be immediately followed by an initial line, 
another comment line, or an end line. 

A comment line does not affect the program in any way and is available as a 
convenience for the programmer. 

3.2.2. End Line. An end line is a line with the character blank in columns 1 
through 6, the characters E, N, and D, once each in that order, in columns 7 
through 72, preceded by, interspersed with, or followed by the character blank. 
The end line indicates, to the processor, the end of the written description of # 
program unit (9.1.7). Every program unit must physically terminate with an end 
line. 


) —K— * 
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3.2.3. Initial Line. An initial line is a line that is neither a comment line nor 
an end line and that contains the digit 0 or the character blank in column 6. 
Columns 1 through 5 contain the statement label or each contains the character 
blank. 

3.2.4. Continuation Line. A continuation line is a line that contains any charac- 
ter other than the digit 0 or the character blank in column 6, and does not contain 
the character C in column 1. 

A continuation line may only follow an initial line or another continuation line. 

3.3. STATEMENTS. A statement consists of an initial line optionally followed by 
up to five ordered continuation lines. The statement is written in columns 7 
through 72 of the lines. The order of the characters in the statement is columns 7 
through 72 of the initial line followed, as applicable, by columns 7 through 72 
of the first continuation line, columns 7 through 72 of the next continuation line, 
etc. 

3.4. STATEMENT LABEL. Optionally, a statement may be labelled so that it may 
be referred to in other statements. A statement label consists of from one to four 
digits. The value of the integer represented is not significant but must be greater 
than zero. The statement label may be placed anywhere in columns | through 5 
of the initial line of the statement. The same statement label may not be given 
to more than one statement in a program unit. Leading zeros are not significant 
in differentiating statement labels. 

3.5. SyMBOLIC NamgEs. A symbolic name consists of from one to five alpha- 
numeric characters, the first of which must be alphabetic. See 10.1 through 
10.1.10 for a discussion of classification of symbolic names and restrictions on 
their use. 

3.6. ORDERING OF CHARACTERS. An ordering of characters is assumed within 
@ program unit. Thus, any meaningful collection of characters that constitutes 
names, lines, and statements exists as a totally ordered set. This ordering is 
imposed by the character position rule of 3.2 (which orders characters within a 
line) and the order in which lines are presented for processing. 


4. DATA TYPES 


Two different types of data are defined. These are integer and real. Each type 
has a different mathematical significance and may have different internal repre- 
sentation. Thus, the data type has a significance in the interpretation of the 
associated operations with which a datum is involved. The data type of a func- 
tion defines the type of the datum it supplies to the expression in which it appears. 

4.1. Data Type AssocraTIOonN. The name employed to identify a datum or 
function carries the data type association. The form of the string representing a 
constant defines both the value and the data type. 

A symbolic name representing a function, variable, or array must have only a 
single data type association for each program unit. Once associated with a par- 
ticular data type, a specific name implies that type for any differing usage of that 
symbolic name that requires a data type association throughout the program 
unit in which it is defined. 

Data type is established for a symbolic name by the first character of that name 
(5.3). 

4.2. Data TyPE PROPERTIES. The mathematical and the representation pro- 
perties for each of the data types are defined in the following sections. For both 
real and integer data, the value zero is considered neither positive nor negative. 

4.2.1. Integer Type. An integer datum is always an exact representation of an 
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integer value. It may assume positive, negative, and zero values. It may only 
assume integral values. 

4.2.2. Real Type. A real datum is a processor approximation to the value of a 
real number. It may assume positive, negative, and zero values. 


5. DATA AND PROCEDURE IDENTIFICATION 


Names are employed to reference or otherwise identify data and procedures. 

The term reference is used to indicate an identification of a datum implying that 
the current value of the datum will be made available during the execution of the 
statement containing the reference. If the datum is identified but not necessarily 
made available the datum is said to be named. One case of special interest in 
which the datum is named is that of assigning a value to a datum, thus defining 
or redefining the daturn. 

The term, reference, is used to indicate an identification of a procedure implying 
that the actions specified by the procedure will be made available. 

A complete and rigorous discussion of reference and definition, including re- 
definition, is contained in Section 10. 

5.1. DATA AND PROCEDURE NAMES. A data name identifies a constant, a 
variable, an array, or an array element. A procedure name identifies a function 
or a subroutine. 

5.1.1. Constants. A constant is a name that references a value. A constant may 
not be redefined. 

An integer or real constant is said to be signed when it is immediately preceded 
by a plus or minus. Also, for these types, an optionally signed constant is either 
a constant or a signed constant. 

5.1.1.1. Integer Constant. An integer constant is formed by a nonempty string 
of digits. The datum formed this way is interpreted as the value represented by 
the digit string. 

5.1.1.2. Real Constant. A basic real constant is formed by an integer part, a 
decimal point, and a decimal fraction part in that order. Both the integer part 
and the decimal fraction part are formed by a string of digits; either one of these 
strings may be empty, but not both. The datum formed this way is interpreted as 
representing a value that is an approximation to the number represented by the 
integer and fraction parts. 

A decimal exponent is formed by the letter E followed by an optionally signed 
integer constant. This exponent is interpreted as a multiplier (to be applied to the 
constant immediately preceding it) that is an approximation to ten raised to the 
power specified by the field following the E. 

A real constant is either a basic real constant or a basic real constant followed 
by a decimal exponent. 

5.1.2. Variable. A variable is a datum that is identified by a symbolic name 
(3.5). Such a datum may be referenced and defined. 

5.1.3. Array. An array is an ordered set of data of one or two dimensions. An 
array is identified by a symbolic name. Identification of the entire ordered set is 
achieved via use of the array name. 

5.1.3.1. Array Element. An array element is one of the members of the set, of 
data of an array. An array element is identified by immediately following the 
array name with a qualifier, called a subscript, which points to the particular 
element of the array. 

An array element may be referenced and defined. 

5.1.3.2. Subscript. A subscript is formed by a parenthesized list of subscript 
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expressions. The subscript expressions are separated by a comma if two are 
present. The number of subscript expressions must correspond to the declared 
dimensionality (7.2.1.1), except in an EQUIVALENCE statement (7.2.1.4). 
Following evaluation of all of the subscript expressions, the array element suc- 
cessor function (7.2.1.1.1) determines the identified array element. 

5.1.3.3. Subscript Expressions. A subscript expression is formed from one of the 
following constructs: 


ctu-tk 
ctu—k 
cry 
otk 
v—k 

v 


k 


where c and k are integer constants and v is an integer variable reference. See 
Section 6 for a discussion of evaluation of expressions and 10.2.8 and 10.3 for 
requirements that apply to the use of a variable in a subscript. 

5.1.4. Procedures. A procedure (Section 8) is identified by a symbolic name. A 
procedure is a statement function, an intrinsic function, a basic external function, 
an external function, or an external subroutine. Statement functions, intrinsic 
functions, basic external functions, and external functions are referred to as 
functions or function procedures; external subroutines as subroutines or sub- 
routine procedures. 

A function supplies a result to be used at the point of reference; a subroutine 
does not. Functions are referenced in a manner different from subroutines. 

5.2. FUNCTION REFERENCE. A function reference consists of the function name 
followed by an actual argument list enclosed in parentheses. If the list contains 
more than one argument, the arguments are separated by commas. The allowable 
forms of function arguments are given in Section 8. 

See 10.2.1 for a discussion of requirements that apply to function references. 

5.3. TypE RuLeEs ror DaTAa AND PROCEDURE IDENTIFIERS. The type of a 
constant is implicit in its name. 

‘There is no type associated with a symbolic name that identifies a subroutine. 

A symbolic name that identifies a variable, an array, or a statement function 
has a type implied by the first character of the name: I, J, K, L, M, and N imply 
type integer; any other letter implies type real. 

A symbolic name that identifies an intrinsic function or a basic external func- 
tion when it is used to identify this designated procedure, has a type associated 
with it as specified in Tables 3 and 4. 

In the program unit in which an external function is referenced or defined its 
type definition is defined in the same manner as for a variable and an array. 

The same type is associated with an array element as is associated with the 
array name. 

5.4. Dummy ARGUMENTS. A dummy argument of an external procedure 
identifies a variable or an array. 

Unless specified otherwise, when the use of a variable, array, or array element 
name is specified, the use of a dummy argument is permissible provided that a 
proper association with an actual argument is made. 

The process of argument association is discussed in Sections 8 and 10. 
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6. EXPRESSIONS 


This section gives the formation and evaluation rules for arithmetic expressions. 
An expression is formed from elements and operators. See 10.3 for a discussion of 
requirements that apply to the use of certain entities in expressions. 

6.1. ARITHMETIC ExPREssIons. An arithmetic expression is formed with 
arithmetic operators and arithmetic elements. Both the expression and its 
constituent elements identify values of one of the types integer or real. The 
arithmetic operators are: 


Operator Representing 
+ Addition, positive value (zero + element) 
— Subtraction, negative value (zero — element) 
* Multiplication 
/ Division 
bea Exponentiation 


The arithmetic elements are primary, factor, term, signed term, simple arith- 
metic expression, and arithmetic expression. 

A primary is an arithmetic expression enclosed in parentheses, a constant, a 
variable reference, an array element reference, or a function reference. 

A factor is a primary or a construct of the form: 


primary**primary 
A term is a factor or a construct of one of the forms: 


term/factor 
or 
term*term 


A signed term is a term immediately preceded by + or —. 

A simple arithmetic expression is a term or two simple arithmetic expressions 
separated by a + or —. 

An arithmetic expression is a simple arithmetic expression or a signed term or 
either of the preceding forms immediately followed by a + or — immediately 
followed by a simple arithmetic expression. 

A primary of any type may be exponentiated by an integer primary and the 
resultant factor is of the same type as that of the element being exponentiated. 
A real primary may be exponentiated by a real primary, and the resultant factor 
is of type real. These are the only cases for which use of the exponentiation 
operator is defined. 

By use of the arithmetic operators other than exponentiation, any admissible 
element may be combined with another admissible element of the same type, and 
the resultant element is of the same type. 

6.4. EVALUATION OF EXPRESSIONS. A part of an expression need be evaluated 
only if such action is necessary to establish the value of the expression. The rules 
for formation of expressions imply the binding strength of operators. It should be 
noted that the range of the subtraction operator is the term that immediately 
succeeds it. The evaluation may proceed according to any valid formation 
sequence. 

When two elements are combined by an operator the order of evaluation of 
the elements is optional. If mathematical use of operators is associative, com- 
mutative, or both, full use of these facts may be made to revise orders of combina- 
tion, provided only that integrity of parenthesized expressions is not violated. 
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The value of an integer factor or term is the nearest integer whose magnitude 
does not exceed the magnitude of the mathematical value represented by that 
factor or term. 

Any use of an array element name requires the evaluation of its subscript. 
The evaluation of functions appearing in an expression may not validly alter the 
value of any other element within the expressions, assignment statement or CALL 
statement in which the function reference appears. The type of the expression 
in which a function reference or subscript appears does not affect, nor is it affected 
by, the evaluation of the actual arguments or subscript. 

No factor may be evaluated that requires a negative valued primary to be 
raised to a real exponent. No factor may be evaluated that requires raising a zero 
valued primary to a zero valued exponent. 

No element may be evaluated whose value is not mathematically defined. 


7. STATEMENTS 


A statement may be classified as executable or nonexecutable. Executable 
statements specify actions; nonexecutable statements describe the characteristics 
and arrangement of data, editing information, statement functions, and classifica- 
tion of program units. 

7.1. EXECUTABLE STATEMENTS. There are three types of executable state- 
ments: 


1. Assignment statements. 
2. Control statements. 
3. Input/output statements. 


7.1.1. Assignment Statements. There is a single assignment statement, the 
arithmetic assignment statement. 
7.1.1.1. Arithmetic Assignment Statement. An arithmetic assignment statement 
is of the form: 
v=e 


where v is a variable name or array element name and e is an arithmetic expres- 
sion. Execution of this statement causes the evaluation of the expression e and 
the altering of v according to Table 1. 


TABLE 1. RULES FoR ASSIGNMENT OF € TO v 


If v Type Is | Ande Type Is | The Assignment Rule Is* 





Integer Integer Assign 

Integer Real Fix & Assign 
Real Integer Float & Assign 
Real Real Assign 


* NOTES. 


1. Assign means transmit the resulting value, without change, to the entity. 

2. Fix means truncate any fractional part of the result and transform that value to 
the form of an integer datum. 

3. Float means transform the value to the form of a real datum. 
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7.1.2. Control Statements. There are seven types of control statements: 


. GO TO statements. 

. Arithmetic IF statement. 

. CALL statement. 

. RETURN statement. 

. CONTINUE statement. 

. Program control statements. 
7. DO statement. 


o> Ot f O° BD = 


The statement labels used in a control statement must be associated with 
executable statements within the same program unit in which the control state- 


ment appears. 
7.1.2.1. GO TO Statements. There are two types of GO TO statements: 


1. Unconditional GO TO statement. 
2. Computed GO TO statement. 


7.1.2.1.1. Unconditional GO TO Statement. An unconditional GO TO statement 


is of the form: 
GO TOk 


where k is a statement label. 

Execution of this statement causes the statement identified by the statement 
label to be executed next. 
7.1.2.1.3. Computed GO TO Statement. A computed GO TO statement is of the 


form: 
GO TO (ki, ka, .. +, kn), 2 


where the k’s are statement labels and 7 is an integer variable reference. See 
10.2.8 and 10.3 for a discussion of requirements that apply to the use of a variable 
in a computed GO TO statement. 

Execution of this statement causes the statement identified by the statement 
label k; to be executed next, where 7 is the value of 7 at the time of the execution. 
This statement is defined only for values such that 1 <7 <n. 

7.1.2.2. Arithmetic IF Statement. An arithmetic IF statement is of the form: 


IF (e) ka, ke, ks 


where ¢ is any arithmetic expression of type integer or real, and the k’s are state- 
ment labels. 

The arithmetic IF is a three-way branch. Execution of this statement causes 
evaluation of the expression e following which the statement identified by the 
statement label ki, ke, or k3 is executed next as the value of e is less than zero, zero, 
or greater than zero, respectively. 

7.1.2.4. CALL Statement. A CALL statement is of one of the forms: 


CALL 8 (aj, ade, ... 5 An) 
or 
CALL 


where s is the name of a subroutine and the a’s are actual arguments (8.4.2). 

The inception of execution of a CALL statement references the designated 
subroutine. Return of control from the designated subroutine completes execu- 
tion of the CALL statement. 
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7.1.2.5. RETURN Statement. A RETURN statement is of the form: 
RETURN 


A RETURN statement marks the logical end of a procedure subprogram and, 
thus, may only appear in a procedure subprogram. 

Execution of this statement when it appears in a subroutine subprogram causes 
return of control to the current calling program unit. 

Execution of this statement when it appears in a function subprogram causes 
return of control to the current calling program unit. At this time the value of the 
function (8.3.1) is made available. 

7.1.2.6. CONTINUE Statement. A CONTINUE statement is of the form: 


CONTINUE 


Execution of this statement causes continuation of normal execution sequence. 
7.1.2.7. Program Control Statements. There are two types of program control 
statements: 


1. STOP statement 
2. PAUSE statement 


7.1.2.7.1. STOP Statement. A STOP statement is of one of the forms: 


STOP n 
or 
STOP 


where n is an octal digit string of length from one to four. 
Execution of this statement causes termination of execution of the executable 


program. 
7.1.2.7.2. PAUSE Statement. A PAUSE statement is of one of the forms: 
PAUSE n 
or 
PAUSE 


where n is an octal digit string of length from one to four. 

The inception of execution of this statement causes a cessation of execution of 
this executable program. Execution must be resumable. At the time of cessation 
of execution, the octal digit string is accessible. The decision to resume execution 
is not under control of the program; but if execution is resumed, execution of the 
PAUSE statement is completed. 

7.1.2.8. DO Statement. A DO statement is of one of the forms: 


DO nr = ™1, me2, ms3 
or 
DO nt = M1, ™Me2 


where: 


1. n is the statement label of an executable statement. This statement, called 
the terminal statement of the associated DO, must physically follow and be in the 
same program unit as that DO statement. The terminal statement may not be a 
GO TO of any form, arithmetic IF, RETURN, STOP, PAUSE, or DO statement. 

2.7 is an integer variable name; this variable is called the control variable. 

3. m1, called the initial parameter ;me, called the terminal parameter; and ms, 
called the incrementation parameter, are each either an integer constant or 
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integer variable reference. If the second form of the DO statement is used so that 
ms3 is not explicitly stated, a value of one is implied for the incrementation para- 
meter. At time of execution of the DO statement, m1, m2, and m3 must be greater 
than zero. 

Associated with each DO statement is a range that is defined to be those execut- 
able statements from and including the first executable statement following the 
DO, to and including the terminal statement associated with the DO. A special 
situation occurs when the range of a DO contains another DO statement. In this 
case, the range of the contained DO must be a subset of the range of the contain- 
ing DO. 

A DO statement is used to define a loop. The action succeeding execution of a 
DO statement is described by the following five steps: 


1. The control variable is assigned the value represented by the initial para- 
meter. This value must be less than or equal to the value represented by the 
terminal parameter. 

2. The range of the DO is executed. 

3. If control reaches the terminal statement, and after execution of the terminal 
statement, the control variable of the most recently executed DO statement 
associated with the terminal statement is incremented by the value represented 
by the associated incrementation parameter. 

4. If the value of the control variable after incrementation is less than or equal 
to the value represented by the associated terminal parameter the action as 
described starting at step 2 is repeated with the understanding that the range in 
question is that of the DO, the control variable of which was most recently 
incremented. If the value of the control variable is greater than the value 
represented by its associated terminal parameter the DO is said to have been 
satisfied and the control variable becomes undefined. 

5. At this point, if there were one or more other DO statements referring to the 
terminal statement in question the control variable of the next most recently 
executed DO statement is incremented by the value represented by its associated 
incrementation parameter and the action as described in step 4 is repeated until 
all DO statements referring to the particular termination statement are satisfied, 
at which time the first executable statement following the terminal statement is 
executed. 

Upon exiting from the range of a DO by execution of a GO TO statement or an 
arithmetic IF statement, that is, other than by satisfying the DO, the control 
variable of the DO is defined and is equal to the most recent value attained as 
defined in the foregoing. 

A GO TO statement or an arithmetic IF statement may not cause control to 
pass into the range of a DO from outside its range. When a procedure reference 
occurs in the range of a DO, the actions of that procedure are considered to be 
temporarily within that range, i.e. during the execution of that reference. 

The control variable, initial parameter, terminal parameter, and incrementa- 
tion parameters of a DO may not be redefined during the execution of the range 
of that DO. 

If a statement is the terminal statement of more than one DO statement the 
statement label of that terminal statement may not be used in any GO TO or 
arithmetic IF statement that occurs anywhere but in the range of the most deeply 
contained DO with that terminal statement. 

7.1.3. Input/Output Statements. There are two types of input/output state- 
ments: 
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1. READ and WRITE statements. 
2. Auxiliary input/output statements. 


The first type consists of the statements that cause transfer of records of 
sequential files to and from internal storage, respectively. The second type con- 
sists of the BACKSPACE and REWIND statements that provide for positioning 
of such an external file, and ENDFILE, which provides for demarcation of such an 
external file. 

In the following descriptions u and f identify input/output units and format 
specifications, respectively. An input/output unit is identified by an integer value 
and u may be either an integer constant or an integer variable reference whose 
value then identifies the unit. The format specification is described in 7.2.3. The 
statement label of a FORMAT statement is represented by f. The identified 
statement must appear in the same program unit as the input/output statement. 

A particular unit has a single sequential file associated with it. The most 
general case of such a unit has the following properties: 


1. If the unit contains one or more records, those records exist as a totally 
ordered set. 

2. There exists a unique position of the unit called its initial point. If a unit 
contains no records, that unit is positioned at its initial point. If the unit is at its 
initial point and contains records, the first record of the unit is defined as the next 
record. 

3. If a unit is not positioned at its initial point, there exists a unique preceding 
record associated with that position. The least of any records in the ordering 
described by (1) following this preceding record is defined as the next record of 
that position. 

4. Upon completion of execution of a WRITE or ENDFILE statement, there 
exist no records following the records created by that statement. 

5. When the next record is transmitted, the position of the unit is changed so 
that this next record becomes the preceding record. 

If a unit does not provide for some of the properties given in the preceding, 
certain statements that will be defined may not refer to that unit. The use of such 
a statement is not defined for that unit. 


7.1.3.1, READ and WRITE Statements. The READ and WRITE statements 
specify transfer of information. Each such statement may include a list of the 
names of variables, arrays, and array elements. The named elements are assigned 
values on input and have their values transferred on output. 

Records may be formatted or unformatted. A formatted record consists of a 
string of characters. The transfer of such a record requires that a format specifica- 
tion be referenced to supply the necessary positioning and conversion specifica- 
tions (7.2.3). The number of records transferred by the execution of a formatted 
READ or WRITE is dependent upon the list and referenced format specification 
(7.2.3.4). An unformatted record consists of a string of values. When an un- 
formatted or formatted READ statement is executed, the required records on the 
identified unit must be, respectively, unformatted or formatted records. 

7.1.3.1.1. Input/Output Lists. The input list specifies the names of the variables 
and array elements to which values are assigned on input. The output list speci- 
fies the references to variables and array elements whose values are transmitted. 
The input and output lists are of the same form. 

Lists are formed in the following manner. A simple list is a variable name, an 
array element name, or an array name, or two simple lists separated by a comma. 
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A list is a simple list, a simple list enclosed in parentheses, a DO-implied list, or 
two lists separated by commas. | 

A DO-implied list is a list followed by a comma and a DO-implied specification, 
all enclosed in parentheses. 

A DO-implied specification is of one of the forms: 


a = M}1, 7N2, M3 
or 
t= M4, Me 


The clements ¢, 7, 22, and mg are as defined for the DO statement (7.1.2.8). 
The range of DO-implied specification is the list of the DO-implied list and, for 
input lists, 7, m1, mz, and m3 may appear, within that range, only in subscripts. 

A variable name or array element name specifies itself. An array name specifies 
all of the array element names defined by the array declarator, and they are 
specified in the order given by the array element successor function (7.2.1.1.1). 

The elements of a list are specified in the order of their occurrence from left to 
right. The elements of a list in a DO-implied list are specified for each cycle of 
the implied DO. 

7.1.3.1.2. Formatted READ. A formatted READ statement is of one of the 
forms: 

READ (u, f)k 
or 
READ (u, f) 


where k is a list. 

Execution of this statement causes the input of the next records from the unit 
identified by u. The information is scanned and converted as specified by the 
format specification identified by f and the resulting values are assigned to the 
elements specified by the list. See, however, 7.2.3.4. 

7.1.3.1.3. Formatted WRITE. A formatted WRITE statement is of one of the 
forms: 

WRITE (u, f)k 
or 
WRITE (u, f) 
where k is a list. 

Execution of this statement creates the next records on the unit identified by wu. 
The list specifies a sequence of values, and these are converted and positioned as 
specified by the format specification identified by f. See, however, 7.2.3.4. 

7.1.3.1.4. Unformatted READ. An unformatted READ statement is of one 
of the forms: 

READ (u)k 
or 
READ (u) 
where & 1s a list. 

Execution of this statement causes the input of the next record from the unit 
identified by wu, and, if there is a list, these values are assigned to the sequence of 
elements specified by the list. The sequence of values required by the list may 
not exceed the sequence of values from the unformatted record. 

7.1.3.1.5. Unformatted WRITE. An unformatted WRITE statement is of the 
form: | 

WRITE (u)k 
where k is a list. 
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Execution of this statement creates the next record on the unit identified by 
u of the sequence of values specified by the list. 

7.1.3.2. Auxiliary Input/Output Statements. There are three types of auxiliary 
input/output statements: 


1. REWIND statement. 
2. BACKSPACE statement. 
3. ENDFILE statement. 


7.1.3.2.1. REWIND Statement. A REWIND statement is of the form: 
REWIND u 


Execution of this statement causes the unit identified by u to be positioned at 
its initial point. 
7.1.3.2.2. BACKSPACE Statement. A BACKSPACE statement is of the form: 
BACKSPACE u 


If the unit identified by wu is positioned at its initial point, execution of this 
statement has no effect. Otherwise, the execution of this statement results in the 
positioning of the unit identified by uso that what had been the preceding record 
prior to that execution becomes the next record. 

7.1.3.2.3. ENDFILE Statement. An ENDFILE statement is of the form: 


ENDFILE u 


Execution of this statement causes the recording of an endfile record on the unit 
identified by uw. The endfile record is a unique record signifying a demarcation of 
a sequential file. Action is undefined when an endfile record is encountered during 
execution of a READ statement. 

7.1.3.3. Printing of Formatted Records. When formatted records are prepared 
for printing the first character of such a record is not printed. 

7.2. NONEXECUTABLE STATEMENTS. There are four types of nonexecutable 
statements: 


1. Specification statements. 

2. FORMAT statement. 

3. Function defining statements. 
4. Subprogram statements. 


See 10.1.2 for a discussion of restrictions on appearances of symbolic names in 


such statements. 
The function defining statements and subprogram statements are discussed 


in Section 8. 
7.2.1. Specification Statements. There are three types of specification state- 


ments: 


1. DIMENSION statement. 
2. COMMON statement. 
3. EQUIVALENCE statement. 


7.2.1.1. Array Declarator. An array declarator specifies an array used in a pro- 


gram unit. 
The array declarator indicates the symbolic name, the number of dimensions 
(one or two), and the size of each of the dimensions. The array declarator state- 


ment is the DIMENSION statement. 
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An array declarator has the form: 
v (2) 
where: 


1. v, called the declarator name, is a symbolic name. 
2. (t), called the declarator subscript, is composed of an integer constant or two 
integer constants separated by a comma. 


The appearance of a declarator in a declarator statement serves to inform 
the processor that the declarator name is an array name. The number of subscript 
expressions specified for the array indicates its dimensionality. The magnitude of 
the value given for the subscript expressions indicates the maximum value that 
the subscript may attain in any array element name. 

No array element name may contain a subscript that, during execution of the 
executable program, assumes a value less than one or larger than the maximum 
length specified in the array declarator. 

7.2.1.1.1. Array Element Successor Function and Value of a Subscript. For a 
given dimensionality, subscript declarator, and subscript, the value of a subscript 
pointing to an array element and the maximum value a subscript may attain are 
indicated in Table 2. A subscript expression must be greater than zero. 

The value of the array element successor function is obtained by adding one to 
the entry in the subscript value column. Any array element whose subscript has 
this value is the successor to the original element. The last element of the array 
is the one whose subscript value is the maximum subscript value and has no suc- 
cessor element. 


TABLE 2. VALUE oF A SUBSCRIPT 






Maximum 

















Dimen- Subscript ; ; : 
sonality Dec phi ae Subscript Subscript Value oe 
(A) (2) a A 
(A, B) (a, b) a+ A-(b — 1) A:-B 






Notes. 1. a and b are subscript expressions. 
2. A and B are dimensions. 


7.2.1.2. DIMENSION Statement. A DIMENSION statement is of the form: 
DIMENSION 11 (41), ve (42), . 2-5 Un (tn) 


where each v (2) is an array declarator. 
7.2.1.8. COMMON Statement. A COMMON statement is of the form: 


COMMON a), ae, ..., An 


where each a is a variable name or an array name. 

In any given COMMON statement, the entities occurring in the list of variable 
names are declared to be in common. 

More than one COMMON statement may appear in a program unit. The pro- 
cessor will string together in common all entities so assigned in the order of their 
appearance. The first element of an array will follow the immediately preceding 
entity, if one exists, and the last element of an array will immediately precede the 
next entity if one exists. 

The size of common in a program unit is the sum of the storage required for the 
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elements introduced through COMMON and EQUIVALENCE statements. The 
size of common in the various program units that are to be executed together need 
not be the same. Size is measured in terms of storage units (7.2.1.3.1). 

7.2.1.3.1. Correspondence of Common Blocks. If all of the program units of an 
executable program that contain any definition of common define common such 
that there is identity in type for all entities defined in the corresponding position 
from the beginning of common, then the values in the corresponding positions are 
the same quantity in the executable program. 

Each real or integer entity counts as one storage unit. 

For common: 


1. In all program units that have defined the identical type to a given position 
(counted by the number of preceding storage units) references to that position 
refer to the same quantity. 

2. A correct reference is made to a particular position assuming a given type if 
the most recent value assignment to that position was of the same type. 


7.2.1.4. EQUIVALENCE Statement. An EQUIVALENCE statement is of the 
form: 
EQUIVALENCE (k1), (ke), ..., (kn) 


in which each k is a list of the form: 
Q1, 22, --+-,Am 


Each a is either a variable name or an array element name (not a dummy argu- 
ment), the subscript of which contains only constants, and m is greater than or 
equal to two. The number of subscript expressions of an array element name must 
correspond in number to the dimensionality of the array declarator or must be 
one (the array element successor function defines a relation by which an array can 
be made equivalent to a one-dimensional array of the same length). 

The EQUIVALENCE statement is used to permit the sharing of storage by two 
or more entities. Each element in a given list is assigned the same storage (or part 
of the same storage) by the processor. The EQUIVALENCE statement should 
not be used to equate mathematically two or more entities. 

The assignment of storage to variables and arrays declared directly in a COM- 
MON statement is determined solely by consideration of their type and the 
COMMON and array declarator statements. Entities so declared are always 
assigned unique storage, contiguous in the order declared in the COMMON 
statement. 

The effect of an EQUIVALENCE statement upon common assignment may be 
the lengthening of common; the only such lengthening permitted is that which 
extends common beyond the last assignment for common made directly by a 
COMMON statement. 

When two variables or array elements share storage because of the effects of 
EQUIVALENCE statements the symbolic names of the variables or arrays in 
question may not both appear in COMMON statements in the same program unit. 

Information contained in 7.2.1.1.1, 7.2.1.3.1, and the present section suffices to 
describe the possibilities of additional cases of sharing of storage between array 
elements and entities of common blocks. It is incorrect to cause either directly or 
indirectly a single storage unit to contain more than one element of the same 
array. 

7.23. FORMAT Statement. FORMAT statements are used in conjunction 
with the input/output of formatted records to provide conversion and editing 
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information between the internal representation and the external character 


strings. 
A FORMAT statenient is of the form: 


FORMAT (qitiZiteze sig ag tn2nq2) 
where: 
1. (qitiZ1t2Z2 . . . tnZng2) is the format specification. 
2. Each q is a series of slashes or is empty. 
3. Each ¢ is a field descriptor or group of field descriptors. 
4. Each z is a field separator. 
5. n may be zero. 


A FORMAT statement must be labelled. 
7.2.3.1. Field Descriptors. The format field descriptors are of the forms: 


rFw.d 

rEw.d 

rilw 

nHhyhe ... hn 
n& 


where: 


1. The letters F, E, I, H, and X indicate the manner of conversion and editing 
between the internal and external representations and are called the conversion 
codes. 

2. w and n are nonzero integer constants representing the width of the field in 
the external character string. 

3. d is an integer constant representing the number of digits in the fractional 
part of the external character string. 

4. r, the repeat count, is an optional nonzero integer constant indicating the 
number of times to repeat the succeeding basic field descriptor. 

5. Each h is one character. 


For all descriptors, the field width must be specified. For descriptors of the form 
w.d, the d must be specified, even if it is zero. Further, w must be greater than or 
equal to d. 

The phrase basic field descriptor will be used to signify the field descriptor 
unmodified by r. 

The internal representation of external fields will correspond to the internal 
representation of the corresponding type constants (4.2 and 5.1.1). 

7.2.3.2. Field Separators. The format field separators are the slash and the 
comma. A series of slashes is also a field separator. The field descriptors or groups 
of field descriptors are separated by a field separator. 

The slash is used not only to separate field descriptors, but to specify demarca- 
tion of formatted records. A formatted record is a string of characters. The 
lengths of the strings for a given external medium are dependent upon both the 
processor and the external medium. 

The processing of the number of characters that can be contained in a record by 
an external medium does not of itself cause the introduction or inception of pro- 
cessing of the next record. 

7.2.3.3. Repeat Specifications. Repetition of the field descriptors (except nH 
and nX) is accomplished by using the repeat count. If the input/output list 
warrants, the specified conversion will be interpreted repetitively up to the speci- 
fied number of times. 
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Repetition of a group of field descriptors or field separators is accomplished by 
enclosing them within parentheses and optionally preceding the left parenthesis 
with an integer constant called the group repeat count indicating the number of 
times to interpret the enclosed grouping. If no group repeat count is specified a 
group repeat count of one is assumed. This form of grouping is called a basic 
group. 

7.2.3.4. Format Control Interaction with an Input/Output List. The inception of 
execution of a formatted READ or formatted WRITE statement initiates format 
control. Each action of format control depends on information jointly provided 
respectively by the next element of the input/output list, if one exists, and the 
next field descriptor obtained from the format specification. If there is an input/ 
output list at least one field descriptor other than nH or nX must exist. 

When a READ statement is executed under format control one record is read 
when the format control is initiated, and thereafter additional records are read 
only as the format specification demands. Such action may not require more 
characters of a record than it contains. 

When a WRITE statement is executed under format control, writing of a 
record occurs each time the format specification demands that a new record be 
started. Termination of format control causes writing of the current record. 

Except for the effects of repeat counts, the format specification is interpreted 
from left to right. 

To each I, F, or E basic descriptor interpreted in a format specification, there 
corresponds one element specified by the input/output list. To each H or X basic 
descriptor there is no corresponding element specified by the input/output list, 
and the format control communicates information directly with the record. 
Whenever a slash is encountered, the format specification demands that a new 
record start or the preceding record terminate. During a READ operation, any 
unprocessed characters of the current record will be skipped at the time of termi- 
nation of format control or when a slash is encountered. 

Whenever the format control encounters an I, F, or E basic descriptor in a 
format specification, it determines if there is a corresponding element specified by 
the input/output list. If there is such an element, it transmits appropriately con- 
verted information between the element and the record and proceeds. If there is 
no corresponding element, the format control terminates. 

If, however, the format control proceeds to the last outer right parenthesis of 
the format specification, a test is made to determine if another list element is 
specified. If not, control terminates. However, if another list element is specified 
the format control demands a new record start and control reverts to that group 
repeat specification terminated by the last preceding right parenthesis, or if none 
exists, then to the first left parenthesis of the format specification. 

7.2.3.6. Numeric Conversions. The numeric field descriptors I, F, and E are 
used to specify input/output of integer and real data. 


1. In numeric input fields blanks are permitted only to the left of the first 
nonblank character or between the sign of the field and the next nonblank 
character. Such blanks are treated as zero in conversion. Plus signs may be 
omitted. A field of all blanks is considered to be zero. 

2. With the F and E input conversions, a decimal point appearing in the input 
field overrides the specification supplied by the field descriptor. 

3. With all output conversions, the output field is right justified. If the number 
of characters produced by the conversion is smaller than the field width leading 
blanks will be inserted in the output field. 
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4. With all output conversions, the external representdtion of a negative value 
must be signed; a positive value may be signed. | 

5. The number of characters produced by an output conversion must not exceed 
the field width. : 


7.2.3.6.1. Integer Conversion. The numeric field descriptor Iw indicates that the 
external field occupies w positions as an integer. The value of the list item appears, 
or is to appear, internally as an integer datum. 

In the external input field, the character string must be in the form of an 
integer constant or signed integer constant (5.1.1.1), except for the interpretation 
of blanks (7.2.3.6). 

The external output field consists of blanks, if necessary, followed by a minus 
if the value of the internal datum is negative, or an optional plus otherwise, 
followed by the magnitude of the internal value converted to an integer constant. 

7.2.3.6.2. Real Conversions. There are two conversions available for use with 
real data: F and E. 

The numeric field descriptor Fw.d indicates that the external field occupies w 
positions, the fractional part of which consists of d digits. The value of the list 
item appears, or is to appear, internally as a real datum. 

The external input field consists of an optional sign, followed by a string of 
digits optionally containing a decimal point. 

The external output field consists of blanks, if necessary, followed by a minus 
if the internal value is negative, or an optional plus otherwise, followed by a string 
of digits containing a decimal point representing the magnitude, to d fractional 
digits, of the internal value. 

The numeric field descriptor Ew.d indicates that the external field occupies w 
positions, the fractional part of which consists of d digits. The value of the list 
item appears, or is to appear, internally as a real datum. 

The basic form of the external input field is the same as for the F conversion. 
The basic form may be followed by an exponent of one of the following forms: 


1. Signed integer constant. 
2. E followed by an integer constant. 
3. E followed by a signed integer constant. 


The standard form of the external output field is* 
£0.71... %4aY 
where: 


1. 21... 2¢ are the d most significant digits of the value of the data to be out- 
put. 
2. Y is of the form: 


B+ Yiye2 


and has the significance of a decimal exponent (an alternative for the plus in the 
first of these forms is the character blank). 
3. Each y is a digit. 


7.2.3.8. Hollerith Field Descriptor. Hollerith information may be transmitted 
by means of the field descriptor nH. 
The nH descriptor causes Hollerith information to be read into, or written from, 


* £ signifies no character position or minus in that position. 
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the n characters (including blanks) following the nH descriptor in the format 
specification itself. 

7.2.3.9. Blank Feld Descriptor. The field descriptor for blanks is nX. On in- 
put, n characters of the external input record are skipped. On output, n blanks 
are inserted in the external output record. 


8. PROCEDURES AND SUBPROGRAMS 


There are four categories of procedures: statement functions, intrinsic func- 
tions, external functions, and external subroutines. The first three categories are 
referred to collectively as functions or function procedures; the last as subroutines 
or subroutine procedures. Function subprograms and subroutine subprograms 
are classified as procedure subprograms. Type rules for function procedures are 
given in 6.3. 

8.1. STATEMENT FUNCTIONS. A statement function is defined internally to the 
program unit in which it is referenced. It is defined by a single statement similar 
in form to an arithmetic assignment statement. 

In a given program unit all statement function definitions must precede the 
first executable statement of the program unit and must follow the specification 
statements, if any. The name of a statement function must not appear as a 
variable name or an array name in the same program unit. 

8.1.1. Defining Statement Functions. A statement function is defined by a 
statement of the form: 


Ff (Qi, G2, ..., Qn) = 


where f is the function name, e is-an expression, and the relationship between f 
and e must conform to the assignment rules in 7.1.1.1. The a’s are distinct 
variable names, called the dummy arguments of the function. Since these are 
dummy arguments, their names, which serve only to indicate type, number, and 
order of arguments, may be the same as variable names of the same type appear- 
ing elsewhere in the program unit. 

Aside from the dummy arguments, the expression e may only contain: 


1. Constants. 

2. Variable references. 

3. Intrinsic function references. 

4, References to previously defined statement functions. 


5. External function references. 


8.1.2. Referencing Statement Functions. A statement function is referenced by 
using its reference (5.2) as a primary in an arithmetic expression. The actual 
arguments, which constitute the argument list, must agree in order, number, and 
type with the corresponding dummy arguments. An actual argument in a state- 
ment function reference may be any expression of the same type as the cor- 
responding dummy argument. 

Execution of a statement function reference results in an association (10.2.2.) of 
actual argument values with the corresponding dummy arguments in the expres- 
gion of the function definition, and an evaluation of the expression. Following this, 
the resultant value is made available to the expression that contained the func- 
tion reference. 

8.2. INTRINSIC FUNCTIONS AND THEIR REFERENCE. The symbolic names of the 
intrinsic functions (see Table 3) are predefined to the processor and have a special 
meaning and type if the name satisfies the conditions of 10.1.7. 
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An intrinsic function is referenced by using its reference as a primary in an 
arithmetic expression. The actual arguments, which constitute the argument list, 
must agree in type, number, and order with the specification in Table 3 and may 
be any expression of the specified type. The intrinsic functions SIGN and ISIGN 
are not defined when the value of the second argument is zero. 

Execution of an intrinsic function reference results in the actions specified in 
Table 3 based on the values of the actual arguments. Following this, the resultant 
value is made available to the expression that contained the function reference. 

8.3. EXTERNAL FuncTions. As external function is defined externally to the 
program unit that references it. An external function defined by FORTRAN 
statements headed by a FUNCTION statement is called a function subprogram. 

8.3.1. Defining Function Subprograms. A FUNCTION statement is of the 
form: 

FUNCTION f (ay, A2, -+e5 An) 
where: 


1. f is the symbolic name of the function to be defined. 
2. The a’s, called the dummy arguments, are each either a variable name or an 
array name. 


Function subprograms are constructed as specified in 9.1.3 with the following 
restrictions: 


1. The symbolic name of the function must also appear as a variable name in 
the defining subprogram. During every execution of the subprogram this variable 
must be defined and, once defined, may be referenced or redefined. The value of 
the variable at the time of execution of any RETURN statement in this sub- 
program is called the value of the function. 

2. The symbolic name of the function must not appear in any nonexecutable 
statement in this program unit, except as the symbolic name of the function in 
the FUNCTION statement. 

3. The symbolic names of the dummy arguments may not appear in an 
EQUIVALENCE or COMMON statement in the function subprogram. 

4, The function subprogram may not define or redefine any of its arguments nor 
any entity in common. 

5. The function subprogram may contain any statements except SUB- 
ROUTINE, another FUNCTION statement, or any statement that directly or 
indirectly references the function being defined. 

6. The function subprogram must contain at least one RETURN statement. 


8.3.2. Referencing External Functions. An external function is referenced by 
using its reference (5.2) as a primary in an arithmetic expression. The actual 
arguments, which constitute the argument list, must agree in order, number, and 
type with the corresponding dummy arguments in the defining program unit. 
An actual argument in an external function reference may be one of the following: 


1. A variable name. 

2. An array element name. 
3. An array name. 

4, Any other expression. 


Execution of an external function reference as described in the foregoing 
results in an association (10.2.2) of actual arguments with all appearances of 
dummy arguments in executable statements and function definition statements. 
If the actual argument is as specified in item (4) in the foregoing this association 
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8 by value rather than by name. Following these associations, execution of the 
first executable statement of the defining subprogram is undertaken. 


TABLE 3. IntrRIns1c FUNCTIONS 





Number Symboli Type of : 
Intrinsic Function Definition of Argu- Asia 
ments Argument | Function 
Absolute Value la] ] ABS Real Real 
IABS Integer Integer 
Float Conversion from 1 FLOAT | Integer Real 
integer to real 
Fix Conversion from 1 IFIX Real Integer 
real to integer 
Transfer of Sign Sign of az times 2 SIGN Real Real 
ay ISIGN Integer Integer 


An actual argument that is an array element name containing variables in the 
subscript could in every case be replaced by the same array name with a constant 
subscript containing the same values as would be derived by computing the 
variable subscript just before the association of arguments took place. 

If a dummy argument of an external function is an array name the correspond- 
ing actual argument must be an array name. 

8.3.3. Basic External Functions. FORTRAN processors must supply the 
external functions listed in Table 4. Referencing of these functions is accom- 
plished as described in 8.3.2, Arguments for which the result of these functions is 
not mathematically defined or is of type other than that specified are improper. 

8.4. SUBROUTINE. An external subroutine is defined externally to the program 
unit that references it. An external subroutine defined by FORTRAN statements 
headed by a SUBROUTINE statement is called a subroutine subprogram. 


TABLE 4. Basic ExtTERNAL FUNCTIONS 






Basic External 
Function 







Definition of Argu- Duene 







Argument | Function 


e2 1 EXP 






Exponential 


Natural logarithm loge (a) 1 ALOG 





Trigonometric sine sine (a) ] COS 





Trigonometric cosine cos (a) 1 COS 





tanh (a) 1 TANH 





Hyperbolic tangent 





(a)¥/2 1 SQRT 






Square Root 





Arctangent arctan(a) 1 ATAN 
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8.4.1. Defining Subroutine Subprograms. A SUBROUTINE statement is of one 
of the forms: 


SUBROUTINE s(a1, aa, ..., Gn) 
or 
SUBROUTINE s 


where: 


1. s is the symbolic name of the subroutine to be defined. 
2. The a’s, called the dummy arguments, are each either a variable name or an 
array name. 


Subroutine subprograms are constructed as specified in 9.1.3 with the following 
restrictions: 


1. The symbolic name of the subroutine must not appear in any statement in 
this subprogram except as the symbolic name of the subroutine in the SUB- 
ROUTINE statement itself. 

2. The symbolic names of the dummy arguments may not appear in an 
EQUIVALENCE or COMMON statement in the subprogram. 

3. The subroutine subprogram may define or redefine one or more of its argu- 
ments so as to effectively return results. 

4. The subroutine subprogram may contain any statements except FUNC- 
TION, another SUBROUTINE statement, or any statement that directly or 
indirectly references the subroutine being defined. 

5. The subroutine subprogram must contain at least one RETURN statement. 


8.4.2. Referencing Subroutines. A subroutine is referenced by a CALL state- 
ment (7.1.2.4). The actual arguments, which constitute the argument list, must 
agree in order, number, and type with the corresponding dummy arguments in 
the defining program. An actual argument in a subroutine reference may be one 
of the following: 


1. A variable name. 

2. An array element name. 
3. An array name. 

4, Any other expression. 


If an actual argument corresponds to a dummy argument that is defined or 
redefined in the referenced subprogram the actual argument must be a variable 
name, an array element name, or an array name. 

Execution of a subroutine reference as described in the foregoing results in an 
association of actual arguments with all appearances of dummy arguments in 
executable statements or function definition statements. If the actual argument 
is as specified in item (4) in the foregoing this association is by value rather than 
by name. Following these associations, execution of the first executable state- 
ment of the defining subprogram is undertaken. 

An actual argument that is an array element name containing variables in the 
subscript could, in every case, be replaced by the same array element name with a 
constant subscript containing the same values as would be derived by computing 
the variable subscript just before argument association took place. 

If a dummy argument of an external function is an array name the cor- 
responding actual argument must be an array name. 

If a subroutine reference causes a dummy argument in the referenced sub- 
routine to become associated with another dummy argument in the same sub- 
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routine or with an entity in common, a definition of either entity within the sub- 
routine is prohibited. 


9. PROGRAMS 


An executable program is a collection of statements, comment lines, and end 
lines that completely (except for input data values and their effects) describe a 
computing procedure. 

9.1. PROGRAM COMPONENTS. Programs consist of program parts, program 
bodies, and subprogram statements. 

9.1.1. Program Part. A program part must contain at least one executable 
statement and may but need not contain FORMAT statements. 

9.1.2. Program Body. A program body is a collection of optional specification 
statements optionally followed by statement function definitions, followed by a 
program part, followed by an end line. The specification statements must be in 
the following order: DIMENSION, COMMON, and EQUIVALENCE. 

9.1.3. Subprogram. A subprogram consists of aSUBROUTINE or FUNCTION 
statement followed by a program body. 

9.1.5. Main Program. A main program consists of a program body. 

9.1.6. Executable Program. An executable program consists of a main program 
plus any number of subprograms, external procedures, or both. 

9.1.7. Program Unit. A program unit is a main program or a subprogram. 

9.2. NonmaL ExEcuTIon SEQUENCE. When an executable program begins 
operation execution commences with the execution of the first executable state- 
ment of the main program. A subprogram, when referenced, starts execution 
with execution of the first executable statement of that subprogram. Unless a 
statement is a GO TO, arithmetic IF, RETURN, or STOP statement or the 
terminal statement of a DO, completion of execution of that statement causes 
execution of the next following executable statement. The sequence of execution 
following execution of any of these statements is described in Section 7. A pro- 
gram part may not contain an executable statement that can never be executed. 

A program part must contain a first executable statement. 


10. INTRA- AND INTERPROGRAM RELATIONSHIPS 


10.1 Symsotic NamMEs. A symbolic name has been defined to consist of from 
one to five alphanumeric characters, the first of which must be alphabetic. 
Sequences of characters that are format field descriptors or uniquely identify 
certain statement types, e.g. GO TO, READ, etc., are not symbolic names in such 
occurrences nor do they form the first characters of symbolic names in these cases. 
In a program unit, a symbolic name (perhaps qualified by a subscript) must 
identify an element of one (and usually only one) of the following classes: 

Class I An array and the elements of that array. 
Class II A variable. 

Class III A statement function. 

Class IV An intrinsic function. 

Class V An external function. 

Class VI A subroutine. 


10.1.1. Restrictions on Class. In the program unit in which a symbolic name in 
Class V appears immediately following the word FUNCTION in a FUNCTION 
statement, that name must also be in Class IT. 
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Once a symbolic name is used in Class V or VI in any unit of an executable 
program, no other program unit of that executable program may use that name to 
identify an entity of these classes other than the one originally identified. 

In a program unit, no symbolic name can be in more than one class except as 
noted in the foregoing. There are no restrictions on uses of symbolic names in 
different program units of an executable program other than those noted in the 
foregoing. 

10.1.2. Implications of Mentions in Specification Statements. A symbolic name 
is in Class I if it appears as a declarator name and is not in Class III. Only one 
such appearance for a symbolic name in a program unit is permitted. 

A symbolic name that appears in a COMMON statement is either in Class I or 
in Class II but not Class V (8.3.1.) Only one such appearance for a symbolic name 
in &@ program unit is permitted. 

A symbolic name that appears in an EQUIVALENCE statement is either in 
Class I or in Class II but not Class V (8.3.1). 

10.1.3. Array and Array Element. In a program unit any appearance of a 
symbolic name that identifies an array must be immediately followed by a sub- 
script, except for the following cases: 


1. In the list of an input/output statement. 

2. In a list of dummy arguments. 

3. In the list of actual arguments in a reference to an external procedure, 
4. In a COMMON statement. 


Only when an actual argument of an external procedure reference is an array 
name may the corresponding dummy argument be an array name. If the actual 
argument is an array name the length of the dummy argument array must agree 
with the length of the actual argument array. 

10.1.4. External Procedures. In: the execution of an executable program, a 
procedure subprogram may not be referenced twice without the execution of a 
RETURN statement in that procedure having intervened. 

10.1.5. Subroutine. A symbolic name is in Class VI if it appears: 


1. Immediately following the word SUBROUTINE in a SUBROUTINE state- 


ment. 
2. Immediately following the word CALL in a CALL statement. 


10.1.6. Statement Function. A symbolic name is in Class ITI in a program unit 
if, and only if, it meets all three of the following conditions: 


1. It is not in Class I or Class IV. 
2. Every appearance of the name is immediately followed by a left parenthesis. 
3. A function defining statement is present for that symbolic name. 


10.1.7. Intrinsic Function. A symbolic name is in Class IV in a program unit if, 
and only if, it meets both of the following conditions: 


1, The symbolic name appears in the name column of Table 3. 
2. Every appearance of the symbolic name is immediately followed by an 
actual argument list enclosed in parentheses. 


The use of an intrinsic function in a program unit of an executable program 
does not preclude the use of the same symbolic name to identify some other entity 
in a different program unit of that executable program. 
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10.1.8. Haternal Function. A symbolic name is in Class V if it: 


1. Appears immediately following the word FUNCTION in a FUNCTION 
statement. 

2. Is not in Class I, Class III, Class IV, or Class VI and appears immediately 
followed by a left parenthesis on every occurrence. There must be at least one 
such appearance in the program unit in which it is so used. 


10.1.9. Variable. In a program unit, a symbolic name is in Class II if it meets 
both of the following conditions: 


1. It is not in Class VI. 
2. It is never immediately followed by a left parenthesis unless it is immediately 
preceded by the word FUNCTION in a FUNCTION statement. 


10.2. DEFINITION. There are two levels of definition of numeric values, first- 
level definition and second-level definition. The concept of definition on the first 
level applies to array elements and variables; that of second-level definition to 
integer variables only. These concepts are defined in terms of progression of 
execution; and thus, an executable program, complete and in execution, is 
assumed in what follows. 

There is another variety of definition which refers to when an external pro- 
cedure may be referenced, and it will be discussed in the next section. 

In what follows, otherwise unqualified use of the terms definition and undefini- 
tion (or their alternate forms) as applied to variables and array elements will 
imply modification by the phrase ‘‘on the first level.”’ 

10.2.1. Definition of Procedures. If an executable program contains information 
describing an external procedure, such an external procedure with the applicable 
symbolic name is defined for use in that executable program. An external func- 
tion reference or subroutine reference (as the case may be) to that symbolic 
name may then appear in the executable program, provided that number of 
arguments agrees between definition and reference. Other restrictions on agree- 
ments are contained in 8.3.1, 8.3.2, 8.4.1, 8.4.2, and 10.1.3. 

The basic external functions listed in Section 8.3.3 are always defined and may 
be referenced subject to the restrictions alluded to in the foregoing. 

A symbolic name in Class IIT or Class IV is defined for such use. 

10.2.2. Associations That Effect Definition. Entities may become associated by: 


1. COMMON association. 
2. EQUIVALENCE association. 
3. Argument substitution. 


Multiple association to one or more entities can be the result of combinations of 
the foregoing. Any definition or undefinition of one of a set of associated entities 
affects the definition or undefinition of each entity of the entire set. 

For purposes of definition, in a program unit there is no association between 
any two entities both of which appear in COMMON statements. Further, there 
is no other association for common and equivalenced entities other than those 
stated in 7.2.1.3.1 and 7.2.1.4. 

If an actual argument of an external procedure reference is an array name, an 
array element name, or a variable name, then the discussions in 10.1.3 and 10.2.1 
allow an association of dummy arguments with the actual arguments only be- 
tween the time of execution of the first executable statement of the procedure and 
the inception of execution of the next encountered RETURN statement of that 
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procedure. Note specifically that this association can be carried through more 
than one level of external procedure reference. 

In what follows, variables or array elements associated by the information in 
7.2.1.3.1 and 7.2.1.4 will be equivalent if, and only if, they are of the same type. 

If an entity of a given type becomes defined, then all associated entities of 
different type become undefined at the same time, while all associated entities of 
the same type become defined unless otherwise noted. 

Association by argument substitution is valid only in the case of identity of 
type so the rule in this case is that an entity created by argument substitution is 
defined at time of entry if, and only if, the actual argument was defined. If an 
entity created by argument substitution becomes defined or undefined (while the 
association exists) during execution of a subprogram, then the corresponding 
actual entities in all calling program units become defined or undefined ac- 
cordingly. 

10.2.3. Events that Effect Definition. Any entity is undefined at the time of the 
first execution of the first executable statement of the main program. Redefini- 
tion of a defined entity is always permissible except for certain integer variables 
(7.1.2.8 and 7.1.3.1.1) or certain entities in subprograms (6.4, 8.3.2, and 8.4.2). 

Variables and array elements become defined or redefined as follows: 


1. Completion of execution of an arithmetic assignment statement causes 
definition of the entity which precedes the equals. 

2. As execution of an input statement proceeds, each entity, which is assigned a 
value of its corresponding type from the input medium, is defined at the time of 
such association and associated entities become undefined. Only at the comple- 
tion of execution of the statement do associated entities of the same type become 
defined. 

3. Completion of execution of a DO statement causes definition of the control 
variable. 

4. Inception of execution of action specified by a DO-implied list causes defini- 
tion of the control variable. 


Variables and array elements become undefined as follows: 


1. At the time a DO is satisfied, the control variable becomes undefined. 

2. Completion of execution of action specified by a DO-implied list causes 
undefinition of the control variable. 

3. When an associated entity of different type becomes defined. 

4. When an associated entity of the same type becomes undefined. 


10.2.6. Entities Not in Common. An entity not in common is initially undefined. 

Such entities once defined by any of the rules previously mentioned, remain 
defined until they become undefined. 

If such an entity is in a subprogram, the completion of execution of a RETURN 
statement in that subprogram causes all such entities and their associates at that 
time to become undefined. In this respect, it should be noted that the association 
between dummy arguments and actual arguments is terminated at the inception 
of execution of the RETURN statement. 

10.2.7. Basic Block. In a program unit, a basic block is a group of one or more 
executable statements defined as follows. 

The following statements are block terminal statements: 


1. DO statement. 
2. CALL statement. 
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3. GO TO statement of all types. 

4. Arithmetic IF statement. 

5. STOP statement. 

6. RETURN statement. 

7. The first executable statement, if it exists, preceding a statement whose 
label is mentioned in a GO TO or arithmetic IF statement. 

8. An arithmetic statement in which an integer variable precedes the equals. 

9. A READ statement with an integer variable in the list. 


The following statements are block initial statements: 


1. The first executable statement of a program unit. 
2. The first executable statement, if it exists, following a block terminal state- 
ment. 


Every block initial statement defines a basic block. If that initial statement is 
also a block terminal statement the basic block consists of that one statement. 
Otherwise, the basic block consists of the initial statement and all executable 
statements that follow until a block terminal statement is encountered. The 
terminal statement is included in the basic block. 

10.2.7.1. Last Executable Statement. In a program unit the last executable 
statement must be one of the following statements: GO TO statement, arithmetic 
IF statement, STOP statement, or RETURN statement. 

10.2.8. Second Level Definition. Integer variables must be defined on the second 
level when used in subscripts and computed GO TO statements. 

Redefinition of an integer entity causes all associated variables to be undefined 
on the second level during the execution of the program until the associated inte- 
ger variable is explicitly redefined. 

Except as just noted, an integer variable is defined on the second level upon 
execution of the initial statement of a basic block only if both of the following 
conditions apply: 

1. The variable is used in a subscript or in a computed GO TO in the basic 
block in question. 

2. The variable is defined on the first level at the time of execution of the initial 
statement in question. 


This definition persists until one of the following happens: 


1. Completion of execution of the terminal statement of the basic block in 


question. 
2. The variable in question becomes undefined or receives a new definition on 


the first level. 


At this time, the variable becomes undefined on the second level. 

In addition, the occurrence of an integer variable in the list of an input state- 
ment in which that integer variable appears following in a subscript causes that 
variable to be defined on the second level. This definition persists until one of the 
following happens: 

1. Completion of execution of the terminal statement of the basic block contain- 
ing the input statement. 

2. The variable becomes undefined or receives a new definition on the first level. 

An integer variable defined as the control variable of a DO-implied list is defined 
on the second level over the range of that DO-implied list and only over that 


range. 
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10.2.9. Certain Entities in Function Subprograms. If a function subprogram is 
referenced more than once with an identical argument list in a single statement, 
the execution of that subprogram must yield identical results for those cases 
mentioned, no matter what the order of evaluation of the statement. 

10.3. DEFINITION REQUIREMENTS FOR USE oF ENTITIES. Any variable refer- 
enced in a subscript or a computed GO TO must be defined on the second level 
at the time of this use. 

Any variable, array element, or function referenced as a primary in an expres- 
sion and any subroutine referenced by a CALL statement must be defined at the 
time of this use. In the case where an actual argument in the argument list of an 
external procedure reference is a variable name or an array element name, this in 
itself is not a requirement that the entity be defined at the time of the procedure 
reference. 

Any variable used as an initial value, terminal value, or incrementation value 
of a DO statement or a DO-implied list must be defined at the time of this use. 

Any variable used to identify an input/output unit must be defined at the time 
of this use. 

At the time of execution of a RETURN statement in a function subprogram, 
the value of that function must be defined. 

At the time of execution of an output statement, every entity whose value is to 
be transferred to the output medium must be defined. If the output is under con- 
trol of a format specification, a correct association of conversion code with type of 
entity is required. The following are the correct associations: I with integer; and 
E and F with real. 
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